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Abstract 

This  dissertation  describes  work  done  to  establish 
functional  relationships  for  friction  coefficients  that  can 
be  used  in  simple,  one-dimensional  heat-pipe  vapor  models. 
Expressions  for  friction  coefficients  were  derived  that  can 
be  used  to  design  heat  pipes  for  compressible-flow 
situations  (Mach  numbers  ns  high  as  one)  with  very  large 
mass  injection/extraction  rates  (radial  Reynolds  numbers 
ranging  from  $100  to  1^20,000). 

In  order  to  establish  these  relationships,  a  simulated 
heat  pipe  was  studied.  Pressure  variations  axially  and 
velocity  variations  axially  and  radially  along  the  simulated 
heat  pipe  were  experimentally  measured.  Turbulent 
transition  in  the  heat  pipe  was  also  experimentally  studied. 
The  experimental  data  was  used  to  show  that  numerical 
solutions  gave  valid  results. 

Vapor  flow  in  the  simulated  heat  pipe  was  numerically 
modeled.  The  compressible,  non-steady,  axisymmetric, 
Navier-Stokes  equations  were  solved  numerically  using 
MacCormack's  explicit  finite  difference  method.  The 
friction  coefficient  expressions  developed  using  the 
numerical  data  were  shown  to  give  excellent  results  when 
•  used  in  a  one-dimensional  model  to  predict  flow  dynamics 
resulting  from  mass  injection/extraction. 
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I.  Introduction 


This  introductory  chapter  is  divided  into  three 
sections.  First,  a  brief  history  o£  heat  pipes  will  be 
presented  along  with  a  brief  description  of  how  they 
operate.  Next,  literature  relating  to  heat  pipe  vapor  flow 
will  be  reviewed.  Lastly,  an  outline  of  the  research 
reported  in  this  work  will  be  presented. 


History  and  Operation  of  Heat  Pipes 

A  heat  pipe  is  a  device  which,  without  moving 
mechanical  parts,  is  able  to  transport  large  amounts  of 
energy  over  a  significant  distance  with  a  small  temperature 
difference.  The  energy  transfer  is  achieved  by  means  of  the 
evaporation  of  fluid  at  one  location  and  condensation  of  the 
vapor  at  a  different  location.  Capillary  forces  in  a  wick 
aid  in  returning  the  liquid  to  the  evaporator  region.  The 
first  recorded  use  of  a  device  similar  to  a  heat  pipe  was  by 
Perkins  in  1897  (1:1,2).  Perkins'  pipes  are  wickless  heat 
pipes.  They  rely  on  gravitational  forces  to  return  the 
liquid  from  the  condenser  to  the  evaporator. 

In  1942  Gaugler  invented  a  heat  pipe  that  worked  in  a 
similar  manner  to  a  Perkins  pipe  except  that  the  working 
fluid  was  circulated  with  the  aid  of  a  wick.  ..  Even  though 
the  idea  had  been  around  since  1942,  it  wasn't  until  1963 
that  Grover  and  his  co-workers  at  the  Los  Alamos  Laboratory 
began  serious  research  on  these  devices.  It  was  this  group 
that  first  introduced  the  term  heat  pipe.  From  1963  on,  the 
amount  of  research  done  on  heat  pipes  grew  quickly  with  work 
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now  being  done  in  nearly  all  developed  nations  (1:1,2). 

A  heat  pipe  has  four  parts:  a  container,  a  wick,  a 
vapor  region  and  a  working  fluid.  A  typical  container  is  a 
right  circular  cylinder  with  a  large  length  to  diameter 
ratio  enclosing  the  wick,  working  £luid,  and  vapor  region. 
One  end  of  the  heat  pipe  is  called  the  evaporator  and  the 
other  end  is  called  the  condenser.  The  evaporator  and 
condenser  can  be  separated  by  an  adiabatic  region  (Figure 
1.1) . 


Figure  1.1  Basic  Heat  Pipe 


As  the  evaporator  end  of  a  heat  pipe  is  heated,  working 
fluid  evaporates  from  the  wick.  The  pressure  in  the 
evaporator  end  of  the  heat  pipe  rises  above  the  pressure  in 
the  condenser.  The  vapor  responds  to  the  pressure  gradient 
and  flows  from  the  evaporator  to  the  condenser.  To  maintain 
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the  condenser  at  a  lower  pressure  than  the  evaporator,  vapor 
Is  condensed.  As  vapor  condenses,  the  resulting  liquid  must 
be  returned  to  the  evaporator.  I£  the  liquid  does  not 
return,  the  evaporator  drys  out  and  the  cycle  stops. 
Capillary  -forces  in  the  wick,  aid  in  transporting  the  liquid 
from  the  condenser  to  the  evaporator. 

Literature  Review 

The  available  literature  pertaining  to  heat-pipe  vapor 
dynamics,  and  the  closely  related  topic  of  flow  in  pipes 
with  mass  extract ion/ inject ion  at  the  pipe  wall,  is 
discussed  in  this  section.  The  literature  is  grouped  into 
the  following  categories  1)  steady  laminar  flow  in  pipes 
with  mass  injection/extraction,  2)  steady  heat-pipe  vapor 
dynamics,  3)  experimental  studies,  4)  transient  heat-pipe 
studies,  and  5)  the  effect  cf  mass  injection/extraction  on 
steady  turbulent  flow  in  pipes. 

Laminar  Flow  in  Pipes  With  Mass  Injection/Extraction. 

In  1953,  ten  years  before  the  name  heat  pipe  was  coined, 
research  on  the  fluid  dynamics  of  flow  in  porous  pipes  with 
mass  injection/extraction  at  the  wall  began.  Since  1953 
several  analytical  studies  have  been  performed  to  help 
better  understand  these  phenomena.  Articles  <2),(4)-(9), 
describe  studies  in  incompressible,  laminar  flow  in  porous 
tubes  with  uniform  mass  transfer  at  the  walls.  Berman  (2) 
was  the  first  to  solve  the  Navier-Stokes  equations  for  a 
channel  having  a  rectangular  cross-section  and  two  equally 
porous  and  opposite  walls.  With  the  assumption  of  uniform 
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extraction  (suction)  at  the  walls,  an  exact  solution  o£  the 
flow  equations  was  obtained.  He  found  that  the  velocity 
profile  deviates  from  the  Hagan-Poiseuille  parabola 
(3:85-87),  being  flatter  at  the  center  of  the  channel  and 
steeper  in  the  region  close  to  the  walls.  The  degree  of 
deviation  is  dependent  on  a  radial  Reynolds  number.  The 
radial  Reynolds  number  is  a  Reynolds  number  based  on  the 
velocity  of  the  flow  through  the  channel  wall  and  the 
hydraulic  diameter. 


where  pD  is  the  fluid  density,  v0  is  the  radial  (extraction) 
velocity  at  the  wall,  D  is  the  hydraulic  diameter  and  n  is 
the  fluid  viscosity. 

Brady  (4)  studied  the  effect  of  the  inlet  velocity 
profile  on  incompressible  flow  in  a  porous  channel  with 
uniform  extraction.  He  showed  that  above  a  critical  radial 
Reynolds  number  of  2.3  (a  positive  radial  Reynolds  Number 
corresponds  to  mass  extraction  from  the  pipe),  the  structure 
of  the  flow  throughout  the  entire  tube  was  influenced  by  the 
inlet  profile.  This  result  is  of  interest  to  heat-pipe 
designers  in  that  it  points  out  the  importance  of  solving 
the  evaporator  and  condenser  problems  simultaneously. 

Friedman  and  Gill is  (5)  studied  steady-state, 
axisymroetric  flow  of  an  incompressible  liquid  in  a  straight 
pipe  with  absorbing  walls.  They  used  a 
vorticity-stream-function  approach  to  solve  the  coupled 
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Navier-Stokes  equations.  They  studied  the  class  of  problems 
with  axial  Reynolds  numbers  ranging  from  0  to  500  and  radial 
Reynolds  numbers  ranging  from  0  to  -20  (a  negative  value 
corresponds  to  mass  injection).  Unlike  a  heat  pipe,  the  pipe 
they  studied  was  open  at  both  ends.  They  did  include  in 
their  study  cases  where  total  absorption  occured.  Total 
absorption  is  when  all  of  the  fluid  entering  the  inlet  of 
the  pipe  is  extracted  through  the  pipe  wall.  Total 
absorption  occurs  in  all  heat  pipes  because  the  down  stream 
end  of  the  pipe  is  blocked.  In  heat  pipes,  all  fluid 
entering  the  condenser  must  be  condensed  onto  the  condenser 
wall/wick.  For  the  total  absorption  case,  Fredman  and 
Gill is  noticed  flow  reversals  along  the  extraction  surface 
(Figure  1J5). 


property  fluid  and  uniform  wall  mass  transfer.  He  presented 
friction  factor  results  for  radial  Reynolds  numbers  from 
-4.618  to  20.  The  tubes  studied  were  open  at  both  ends. 
Kinney,  extrapolating  from  his  results,  estimated  that  at  a 
radial  Reynolds  number  of  -4.626  the  friction  factor  would 
be  zero.  This  would  correspond  to  an  onset  of  flow  reversal 
in  the  pipe. 

Rathby  (7)  analytically  studied  laminar  flow  in  pipes 
and  rectangular  ducts  with  mass  injection/extraction. 
Equations  representing  the  friction  coefficient  were 
presented  for  both  geometries  for  radial  Reynolds  numbers  in 
the  range  of  -20  to  40.  Where  earlier  authors  had  predicted 
a  decrease  in  friction  with  small  extraction  rates  in  pipes, 
he  found  that  for  duct  flow,  in  a  region  with  an  adverse 
pressure  gradient,  the  velocity  profile  became  flatter  with 
a  steeper  gradient  near  the  wall.  This  led  to  an  increase 
in  friction. 

Some  interesting  results  of  the  above  studies  have  been 
summarized  by  Terrill  and  Thomas  (8).  They  found  that  two 
distinct  analytical  solutions  to  the  governing  differential 
equations  exist  for  radial  Reynolds  numbers  in  the  range  of 
0.0  to  2.3046  and  for  radial  Reynolds  numbers  between  9.1045 
and  about  50.  No  analytical  solutions  could  be  found  in  the 
range  of  2.3046  to  9.1045.  Where  the  two  solutions  existed, 
at  least  one  of  the  solutions  predicted  flow  reversal  in  the 
pipe's  mass  extraction  region. 

Host  recently  R.  M.  Terrill  (9), (10)  has  solved  the 


incompressible,  laminar  Navier-Stokes  equations  for 
axisymmetric  flow  in  a  porous  tube  with  non-uniform 
injection/extraction.  The  result  was  used  to  obtain  a 
fully-developed  solution  for  flow  in  a  porous  pipe  with 
axially  varying  injection/extraction.  Prior  to  these  works, 
all  researchers  had  limited  their  work  to  uniform  extraction 
or  injection. 

Heat-Pipe  Vapor  Dynamics .  Since  1963  a  body  of 
literature  has  developed  about  heat  pipes.  Five 
International  Heat  Pipe  conferences  have  been  held.  Three 
books  on  heat  pipe  design  and  theory  are  now  available 
(1), (11), (12) .  Numerous  papers  have  been  written  about  the 
different  aspects  of  heat>pipe  operation  including  the 
dynamics  of  vapor  flow  which  is  the  topic  of  this  research. 

The  first  major  paper  on  heat  pipes  was  written  by 
Cotter  in  1965  (13).  Cotter  based  his  vapor  flow  analysis 
on  the  work  of  Yuan  and  Finkelstein  (14)  for  radial  Reynolds 
numbers  much  less  than  one  and  on  the  work  of  Knight  and 
Mclnteer  (15)  for  radial  Reynolds  numbers  much  greater  than 
one.  Both  analyses  assumed  incompressible  laminar  flow  with 
uniform  injection/extraction.  Yuan  and  Finkelstein  (14) 
showed  that  the  pressure  gradient  would  be  close  to  that 
obtained  for  Hagan-Poiseuille  flow  (3:85-87)  where  the 
velocity  profile  is  parabolic.  The  gradient  would  be 
slightly  larger  for  the  case  of  evaporation  (mass  injection) 
and  smaller  for  condensation  (mass  extraction).  For  large 
radial  Reynolds  numbers,  Knight  and  Mclnteer  v 1 5 )  showed 


that  the  velocity  profiles  could  no  longer  be  assumed  to  be 
close  to  parabolic.  They  developed  an  expression  for  the 
axial  pressure  gradient  at  high  radial  Reynolds  numbers 
which  was  experimentally  verified  by  Wageman  and  Guevara 
(16). 

Since  that  time  other  authors  have  used  incompressible 
flow  models.  Bankston  and  Smith  (17)  solved  the  two- 
dimensional,  incompressible  Navier-Stokes  equations  for 
steady-flow  in  a  heat  pipe.  They  used  a 
vorticity-stream-function  approach  so  that  radial  pressure 
gradients  would  not  be  ignored  and  so  that  flow  reversals 
could  be  permitted.  They  concluded  that  for  radial  Reynolds 
numbers  larger  than  2,  accurate  prediction  of  axial  pressure 
loss  requires  the  solution  of  the  complete  two-dimensional 
equations.  For  small  radial  Reynolds  numbers,  simpler 
approaches  could  be  used.  They  limited  their  study  to 
laminar  flow  in  heat  pipes. 

Van  Ooijen  and  Hoogenborm  (18)  studied  vapor  flow  in  a 
flat-plate  heat  pipe.  The  vapor  region  was  a  rectangular 
channel.  The  lower  plate  contained  the  wick,  evaporator  and 
condenser.  The  top  plate  of  their  heat  pipe  was  assumed  to 
be  an  adiabatic  wall.  For  their  numerical  work  they  assumed 
steady,  incompressible,  two-dimensional,  laminar  flow.  They 
concluded  that  for  small  radial  Reynolds  numbers  (less  than 
25)  accurate  pressure  and  velocity  profiles  could  be 
obtained  by  using  the  simple  Hagan-Poiseuille  flow  model 
(i.e.,  parabolic  velocity  profile).  For  larger  radial 
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Reynolds  numbers/  a  more  complicated  approach  was  needed. 

In  a  later  article/  (19),  Van  Ooijen  and  Hoogenborm  compared 
experimental  pressure  data  they  obtained  for  flow  in  a  flat 
plate  heat  pipe  with  their  numerical  results  reported  in  Ref 
(18)  (discussed  above).  The  comparison  was  fair. 

The  effects  of  compressibility  on  flow  with  mass 
injection/extraction  have  also  been  studied. 

One-dimensional,  frictionless,  compressible-flow  models  have 
been  developed  by  several  authors.  Levy  (20)  studied  the 
behavior  of  vapor  in  the  evaporator  section  of  a  heat  pipe 
using  a  steady,  one-dimensional,  compressible-flow  analysis. 
He  was  interested  in  knowing  if  gas  dynamic  choking  could 
limit  heat-pipe  performance.  He  studied  two  vapor  models,  a 
perfect-gas  model  and  an  equilibrium  two-phase  model,  and 
compared  his  results  with  the  experimental  data  of  Kemme 
(21)  obtained  from  a  horizontal  sodium  heat  pipe.  Levy 
concluded  that  at  low  vapor  pressures  sonic  velocities  could 
be  obtained  at  the  entrance  to  the  heat-pipe  condenser  thus 
limiting  the  amount  of  energy  transport  achievable  by  a  heat 
pipe. 

Bystor  and  Popov  (22)  were  also  interested  in  the 
compressibility  effect  in  supersonic  flows  of  high 
temperature  heat  pipes.  They  developed  a  steady, 
one-dimensional,  frictionless,  compressible  model  to  study 
these  effects.  In  their  model  they  also  compared  the  two 
gas  models  studied  by  Levy.  They  found  that  assuming 
thermodynamic  equilibrium  of  the  two  phase  flow  was  valid 
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when  compared  with  unpublished  experimental  data  obtained 
from  a  sodium  heat  pipe  by  Ivonovsky  and  Sorokin  and  their 
colleagues  at  the  Physics  and  Power  Institute.  The 
experimental  data  was  in  the  form  of  temperature  fields 
measured  with  a  movable  thermocouple  located  in  a  capillary 
tube  mounted  inside  the  vapor  channel  near  the  wick  surface. 
The  experimental  data  suggested  the  presence  of  a  normal 
shock  in  the  condenser.  This  indicated  the  presence  of 
supersonic  velocities  in  the  condenser. 

Two-dimensional,  steady,  compressible  models  have  also 
been  developed.  The  first  was  developed  by  DeMlchele  (23). 
He  solved  the  governing  equations  by  using  an  integral 
transformation  closely  related  to  the  stream-function 
transformation  first  introduced  by  R.  Von  Hises  (24).  He 
simplified  the  governing  equations  by  assuming  the 
boundary-layer  assumptions  applied.  When  compared  to 
unpublished  experimental  data  obtained  by  J.  Kemme  at  the 
Los  Alamos  Scientific  Laboratories,  the  method  was  shown  to 
give  good  results. 

Tien  and  Rohani  (25)  also  solved  the  Navier-Stokes 
equations  for  steady,  two-dimensional,  compressible  flew  in 
a  cylindrical  heat  pipe.  They  did  not  assume  the 
boundary-layer  assumptions  applied. ^  They  used  a 
vorticity-stream-function  approach  similar  to  the 
incompressible-flow  method  used  by  Bankston  and  Smith  '17). 
They  claim  that,  for  high  evaporation  and  condensation 
rates,  their  model  gave  better  results  than  similar  models 
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that  made  boundary-layer  assumptions. 

Recently  Busse  and  Prenger  (26)  wrote  a  computer  code, 
AGATHE,  which  was  intended  to  evaluate  the  vapor  flow  in 
axially-symmetric,  vapor-limited  heat  pipes.  They  used  a 
steady,  two-dimensional,  compressible,  boundary -layer  model 
which  assumed  that  the  vapor  was  an  isothermal  perfect  gas. 
Their  program  was  the  first  to  model  both  laminar  and 
turbulent  flows.  Upon  comparing  their  results  with 
experimental  and  numerical  results  from  other  sources  ((17), 
(27)  c.f.  below],  they  concluded  that  their  model  did  a  good 
job  of  predicting  pressure  recovery  in  heat  pipes.  Since 
Busse  and  Prenger  published  their  paper,  Haug  and  Busse  (27) 
have  further  validated  the  model  with  the  latest 
experimental  heat-pipe  vapor  data  that  was  available. 

Experimental  Results.  Although  some  data  is 
available,  review  of  the  heat-pipe  literature  reveals  that 
the  experimental  data  available  to  validate  numerical  models 
are  still  incomplete.  It  should  be  noted  that  the  available 
data  are  in  two  forms:  actual  heat-pipe  data;  and  simulated 
heat-pipe  data  employing  air  flow  with  injection/extraction 
in  porous-wall  pipes.  Wageman  and  Guevara  (16)  were  among 
the  first  to  act  on  the  need  to  experimentally  validate 
early  theoretical  studios.  They  simulated  a  heat-pipe 
evaporator  by  injecting  air  through  a  porous-wall  pipe. 

They  found  that  their  experimental  results  closely  matched 
the  laminar  flow  theory  of  Yuan  and  Finkelstein  (14)  even 
for  axial  Reynolds  numbers  up  to  100,000,  where  turbulence 
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should  have  been  well  established.  In  their  work,  no  Mach 


numbers  above  0.16  were  attained  nor  did  they  study  the 


effects  of  mass  extraction. 


The  most  widely  referenced  experiment  is  that  done  by 


Quaile  and  Levy  (28).  They  simulated  a  heat-pipe  condenser 


in  a  similar  way  to  the  condenser  studied  by  Vageman  and 


Guevara  (16).  They  measured  axial  pressure  drop  in  a  porous 


pipe  as  well  as  radial  variations  in  the  axial  velocity  at 


several  axial  locations.  They  found  that  extraction  caused 


the  flow  to  become  turbulent  at  axial  Reynolds  numbers  lower 


than  2000  which  generally  denotes  the  lower  limit  of  the 


region  of  turbulent  flow.  They  observed  transition  at  axial 


Reynolds  numbers  lower  than  370  when  the  radial  Reynolds 


number  was  6.  Transition  refers  to  the  region  in  a  flow 


field  where  the  flow  is  changing  from  fully  laminar  to  fully 


turbulent. 


Experiments  on  flow  in  a  porous  pipe  with  extraction 


(i.e.,  simulated  heat-pipe  condensers)  have  also  been 


reported  by  Aggarwal,  Hollingsworth  and  Hayhew  (29).  They 


measured  the  pressure  gradient  obtained  with  air  flow  in  a 


porous  tube  of  circular  cross-section  with  a  fully-developed 


turbulent  profile  at  the  entrance  of  the  mass  extraction 


region  and  with  uniform  mass  extraction  through  the  pipe 


wall.  Their  experiments  cohered  inlet  axial  Reynolds 


numbers  ranging  from  11,000  to  101,000  (inlet  axial  Reynolds 


number  refers  to  the  Reynolds  number  based  on  mean  axial 


velocity  and  pipe  diameter  at  the  entrance  to  the  pipe)  with 
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a  ratio  of  the  transverse  velocity  ^t  the  vail  to  the  mean 
axial  velocity  at  the  inlet  ranging  from  0  to  about  0,027. 
The  form  of  the  velocity  profile  was  found  to  depend  upon 
extraction  rate,  becoming  more  flat  at  modest  rates  of 
extraction,  but  less  flat  at  high  rates.  Extraction  also 
caused  the  relative  turbulence  level  to  increase  at  all 
radii,  except  for  some  reduction  in  the  region  of  the  wall 
at  very  low  rates  of  extraction.  Friction-coefficient 
values  for  flow  with  extraction  are  graphically  presented  in 
the  paper.  At  a  fixed  axial  Reynolds  number, 
friction-coefficient  values  were  found  to  increase  markedly 
with  suction  as  compared  to  typical  non-porous  pipe  friction 
coefficients  (for  example,  at  an  axial  Reynolds  number  of 
80,000,  the  friction  coefficient  was  as  high  as  10  times  the 
expected  turbulent  rough  pipe  friction  coefficient). 

Transient  Heat-Pipe  Studies.  During  the  literature 
review,  no  papers  were  found  that  model  non-steady  vapor 
flow  in  heat  pipes.  Three  papers,  one  by  Beam  (30),  one  by 
Chang  (31)  and  the  last  by  Colwell  (32)  all  presented 
studies  on  transient  heat-pipe  operation;  however,  their 
work  was  aimed  at  understanding  transient  wick  phenomena. 

At  the  Fourth  Symposium  on  Space  Nuclear  Power  Systems, 
Albuquerque,  New  Mexico,  January  1987,  five  papers  (33)-(37) 
were  presented  on  work  currently  being  done  to  model 
heat-pipe  transients.  All  of  the  models  discussed  were 
still  in  the  development  stages.  The  majority  of  the  models 
being  considered  assume  the  vapor  flow  is  one-dimensional. 
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Turbulence  Studies .  Several  of  the 
previously-mentioned  articles  discussed  the  existence  of 
turbulence  in  heat-pipe  vapor  flow.  The  articles  that  will 
now  be  discussed  (38) -(42), (44), (45)  pertain  specifically  to 
the  modeling  of  turbulence  in  regions  of  mass 
injection/extraction  or  with  adverse/ favorable  pressure 
gradients. 

Five  of  the  papers  (38) -(42)  proposed  modifications  to 
the  Van  Driest  dampening  factor.  Ref  (43),  used  in 
conjunction  with  Prandtl -mixing-length  theory  of  turbulence 
modeling.  Van  Driest  introduced  a  useful  modification  to 
Prandtl 's-mixing-length  theory  which  provides  a  continuous 
velocity  and  shear  distribution  for  turbulent  flow  near  a 
wall.  The  Van  Driest  dampening  factor  (a  value  used 
in  Van  Driest's  model)  relates  to  the  thickness  of  the 
laminar  sublayer.  The  same  general  trends  were  noted  in  all 
papers.  They  suggested  that  a  favorable  pressure  gradient 
(accelerating  flow)  caused  an  increase  in  the  dampening 
factor.  This  is  manifest  in  a  thicker  laminar  sublayer 


which  leads  to  lower  skin-friction  as  compared  to  flow  over 
a  flat  plate.  The  reverse  was  noted  for  an  adverse  pressure 
gradient  (decelerating  flow),  that  is  the  dampening  factor 
was  decreased.  All  five  papers  also  concluded  that  mass 
extraction  had  a  similar  effect  to  that  of  a  favorable 
pressure  gradient  while  mass  injection  had  a  similar  effect 
to  that  of  an  adverse  pressure  gradient.  Each  paper 
presented  a  slightly  different  formula  for  modifying  the  Van 
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Driest  dampening  factor  to  account  for  these  effects.  All 
five  papers  limited  their  range  of  study  to  small  mass 
transfer  rates  and  small  pressure  gradients. 

Brosb  (44)  experimentally  studied  turbulent  flow  in  a 
tube  with  mass  extraction.  He  verified  the  trends  relating 
to  extraction  discussed  above;  however,  he  noted  that  this 
was  only  true  in  very  long  pipes  after  fully-developed  flow 
had  been  established.  In  pipe  entrance  regions  the  opposite 
trend  prevailed;  i.e.,  mass  extraction  caused  a  thin  laminar 
sublayer  which  lead  to  higher  skin  friction  as  compared  to 
flow  over  a  flat  plate.  He  stated  that  the  flow  seems  to  be 
much  more  complex  than  originally  thought;  that  more 
experimental  work,  especially  in  the  transition  zone,  was 
clearly  indicated. 

The  most  recent  attempt  to  model  turbulent  flow  in  a 
pipe  with  extraction  was  by  Eroshenko,  Ershov,  and  Zaichik 
(45).  They  chose  to  deviate  from  Prandtl -mixing-length 
theory,  feeling  that  a  more  complex  model  was  needed.  In 
their  paper  a  three-parameter  model  of  turbulence  was  used. 
Upon  comparing  their  results  with  the  experimental  data  of 
Aggarwal  et.  al.  (29)  they  felt  that  a  fairly  satisfactory 
description  of  the  flows'  turbulence  characteristics  was 
obtained  with  the  three-parameter  turbulence  model. 

Objective  of  This  Research 

The  main  thrust  of  the  present  work  was  to  establish 
functional  relationships  for  friction  coefficients  that  can 
be  used  in  simple,  one-dimensional  formulations  to  model 
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heat-pipe  performance  In  operating  regions  not  formerly  well 
understood.  These  regions  include  compressible-flow 
situations  where  Mach  numbers  can  approach  one  somewhere  in 
the  pipe.  Such  regimes  are  usually  brought  on  by  large  mass 
injection/extraction  rates;  thus  the  friction  coefficient 
relations  must  be  able  to  account  for  such  rates. 

In  order  to  establish  reliable  relationships  a 
simulated  heat  pipe  was  studied.  Pressure  variations 
axially  and  velocity  variations  axially  and  radially  along 
the  simulated  heat  pipe  were  experimentally  measured.  The 
experimental  data  was  used  to  show  that  numerical  solutions 
(c.f.  below)  gave  valid  results. 

To  gain  more  detailed  information  about  the  flow  field 
being  studied,  vapor  flow  In  the  simulated  heat  pipe  was 
numerically  modeled.  The  compressible,  non-steady, 
axisymmetric  Navier-Stokes  equations  were  solved 
numerically.  The  compressible  form  of  the  equations  was 
used  because  of  the  vapor  density  changes  in  heat  pipes  at 
high  Mach  numbers  and  during  power  transients.  MacCormack's 
explicit  finite-difference  method  was  used  to  solve  the 
equations . 

From  the  results  of  the  numerical  simulations, 
expressions  for  friction  coefficients  were  derived  that  can 
be  used  by  heat-pipe  designers  to  design  heat  pipes  for 
compressible-flow  situations  with  very  large  mass 
injection/extraction  rates  (radial  Reynolds  numbers  from 
100  to  20,000).  The  expressions  developed  were  shown  to 
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II.  Experimental  Approach 


The  goal  of  the  experimental  portion  of  the  present 
work  was  to  gain  a  better  understanding  of  vapor  dynamics  in 
a  heat  pipe  at  Mach  numbers  near  one.  This  goal  was 
achieved  by  measuring  the  vapor  pressure  and  velocity 
distributions  in  a  simulated  heat  pipe  operating  in  the 
sonic  range,  and  by  trying  to  characterize  the  turbulence 
patterns  encountered.  These  data  formed  the  basis  for 
comparison  with  the  numerical  model  of  vapor  behavior 
discussed  in  detail  in  a  later  chapter.  In  this  chapter  a 
discussion  on  how  the  heat-pipe  vapor  flow  was  simulated 
will  be  given.  Following  this,  the  experimental  set  up  is 
discussed.  Finally  a  discussion  is  given  on  how  turbulence 
was  measured. 

Simulated  Heat  Pipe 

It  is  well  documented  that  measurement  of  vapor 
dynamics  in  actual  heat  pipes  presents  a  number  of 
experimental  difficulties  (c.f.  below).  Following  the  work 
of  Hageman  and  Guevara  (16)  and  Quale  and  Levy  (28),  an 
alternative  to  studying  vapor  dynamics  in  a  heat  pipe  is  to 
simulate  heat-pipe  vapor  flow  by  blowing  air  through  a 
porous  pipe  to  model  an  evaporator,  and  extracting  the  air 
via  suction  through  a  different  section  of  the  porous  piiye 
to  simulate  a  condenser.  Figure  2.1  is  a  schematic 
representation  of  this  idea.  Such  a  system  is  relatively 
simple  to  build  and  test,  and  has  been  shown  (Ref  (16) 
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Figure  2.1  Porous  Pipe  Concept 


and  (28))  to  closely  model  heat-pipe  vapor  dynamics. 

Because  heat  pipes  are  carefully  sealed  from  their 
environment,  it  is  difficult  to  measure  the  velocity  field 
in  the  vapor  region.  For  the  porous  pipe  set  up,  velocity 
probes  can  be  easily  introduced  into  the  vapor  region  to 
measure  the  gas  velocity.  Because  heat  pipes  are  able  to 
operate  at  very  low  pressures  with  very  small  axial  pressure 
variations,  pressure  measurements  can  be  hard  to  make. 

Since  the  porous  pipe  is  operated  at  higher  pressures  with 
larger  pressure  changes,  this  problem  is  avoided.  Finally, 
with  the  porous  pipe,  no  complicated  heating  and  cooling 
equipment  is  needed,  nor  is  a  liquid  return  mechanism  (like 
the  wick  in  a  heat  pipe)  required.  For  all  the  above 
reasons,  a  porous-wall  heat-pipe  simulator  was  used  to 
obtain  the  required  data  for  this  study. 
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Porous-Wall  Heat-Pipe  Simulator  Design 

The  first  consideration  in  the  porous-pipe  design  was 
the  compressed  air  supply  available  for  the  testing.  At 
AFIT,  compressors  were  available  that  could  continuously 
supply  1  lbm/sec  of  air  at  100  psig.  The  pressure  sink  was 
the  laboratory  atmosphere.  Choked  mass  flow  rate  versus 
upstream  pipe  pressure  for  various  sizes  of  pipes  are 
plotted  in  Figure  2.2,  along  with  the  operating  limits  of 
the  pressure  supply.  Figure  2.2  assumes  that  air  enters  the 
upstream  end  of  the  pipe  at  560  R,  and  that  one-dimensional, 
compressible  flow  relations  for  flow  with  mass 
injection/extraction  (c.f.  below)  were  valid.  Such 
considerations  led  to  the  selection  of  a  0.650  inch  inside 
diameter  porous  pipe  for  use  in  the  experiment. 


Figure  2.2  Pipe  Size  Limitation 
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Frictionless,  One -Dimensional,  Compressible  Flow  with  Hass 
Injection/Extraction 

Property  variations  with  Hach  number  for  frictionless, 
one-dimensional,  compressible  flow  with  simple  gas  injection 
may  be  found  following  Shapiro  (46), by 
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where  p  is  the  pressure,  T  is  the  temperature,  p  is  the 
density,  m  is  the  mass  flow  rate,  Ma  is  the  Mach  number  and 
7  is  the  ratio  of  specific  heats.  The  subscript  "o"  refers 
to  the  upstream  pipe  conditions  (Ma=0)  and  the  subscript  **" 
refers  to  choked  flow  (Ma=1.0).  Sample  pressure 
distributions  for  a  pipe  with  uniform  injection  and 
extraction  are  shown  in  Figure  2.3  by  curves  1,  2,  2A, 
and  2B. 

In  a  cylindrical  heat  pipe,  mass  addition  in  the 
evaporator  causes  the  axial  mass  flow  rate  to  increase  down 
the  pipe.  This  result*  in  a  decrease  in  pressure.  As  mass 
is  removed  in  the  condenser,  the  mass  flow  rate  desreases 
and  the  pressure  increases.  If  friction  is  ignored,  the 
pressures  at  the  two  ends  of  the  pipe  must  be  equal. 
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Figure  2.3  Sample  Axial  Pressure  Distributions  for  Ideal 
One -Dimensional  Vapor  Flow  in  a  Heat  Pipe 
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A  force  balance  performed  on  the  control  volume  containing 
the  heat-pipe  vapor  region  shows  that  only  friction  can 
cause  the  end  pressures  to  be  different  (Figure  2.4). 

Curve  1  in  Figure  2.3  illustrates  the  axial  variation 
of  pressure  in  a  heat  pipe  for  the  case  where  sonic 
velocities  are  never  attained.  As  mass  injection/extraction 
increased.  Curve  2,  the  axial  velocity  in  the  evaporator 
increases  until  sonic  velocity  is  achieved  at  the  entrance 
to  the  condenser  (heat  pipe  throat).  For  Curve  2,  a 
pressure  ratio  of  0.417  is  reached  at  the  condenser 
entrance.  As  the  sonic  flow  enters  the  condenser,  mass 
extraction  can  cause  the  flow  to  either  deccelerate  (Curve 
2A)  or  accelerate  (Curve  2B). 

For  Curve  2A  the  flow  is  subsonic  in  the  condenser.  As 
the  flow  slows,  the  pressure  in  the  condenser  rises. 

Assuming  no  friction,  the  pressure  must  rise  to  the 
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evaporator  entrance  pressure.  Complete  pressure  rise  is 
called  total  pressure  recovery.  For  Curve  2B,  the  flow 
accelerates,  becoming  supersonic  in  the  condenser  entrance 
region.  As  the  flow  accelerates,  the  pressure  decreases. 
Because  the  flow  velocity  must  be  zero  at  the  end  of  the 
condenser,  the  flow  must  deccelerate  somewhere  in  the 
condenser.  The  flow  decceleration  is  initiated  by  a  shock. 
It  is  interesting  to  note  that  there  is  no  unique  shock 
location  if  the  flow  is  assumed  to  be  frictionless,  and  the 
mass  extraction  distribution  for  the  subsonic  and  supersonic 
cases  are  the  same.  The  pressure  jump  across  the  shock 
causes  the  pressure  to  increase  to  the  subsonic  pressure  for 
the  given  mass  flow  rate  for  any  shock  location  in  the 
condenser.  After  the  shock,  once  again,  total  pressure 
recovery  occures.  If  friction  is  considered,  the  condenser 
end  pressure  would  be  less  than  the  evaporator  end  pressure. 
The  larger  the  frictional  forces,  the  larger  the  pressure 
drop  between  the  ends  of  the  pipe. 


Figure  2.4  Control  Volume  for  Force  Balance 
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Pressure  and  Temperature  Measurements 

All  pressure  measurements  were  made  using  a  T-type 
Scanivalve,  from  Scaniv\lve  Corporation.  A  Model  PDCR42 
differential  pressure  transducer  with  a  pressure  range  of 
0-100  psig  was  used  in  the  Scanivalve.  The  pressure 
measurements  were  accurate  to  within  0.2  psi.  This  system 
allowed  for  36  pressure  measurements  with  the  one  pressure 
transducer.  The  disadvantage  of  the  system  was  that  only 
steady-state  or  slowly  changing  pressures  could  be  measured. 
The  pressure  transducer  was  calibrated  using  two  100  inch 
mercury  manometers  connected  in  series  as  a  standard. 

Data  Acquisition 

Data  acquisition  was  done  via  an  S-100  based  computer. 
Pressure  transducer  input  into  the  computer  was  digitized 
through  a  Dual  Systems  Control  model  AIM12  analog-to-digital 
card  in  the  computer.  An  offset  option  on  the  card  and 
amplification  were  set  so  signals  from  0  to  +100  millivolts 
could  be  read  with  a  resolution  of  0.024  millivolts. 

Shielded  cables  were  used  to  reduce  noise  introduced  to  the 
system.  Noise  was  further  reduced  by  averaging  30  data 
samples.  Once  the  data  had  been  read  and  averaged  by  the 
computer#  it  could  be  displayed  on  a  monitor,  stored  on 
disk#  or  processed  as  desired. 

Mass-Flow-Rate  Measurements 

The  total  mass  flow  rate  entering  the  test  section  was 
measured  using  a  square  edged  orifice.  Ten  feet  (40  pipe 
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diameters)  of  straight  pipe  preceded  the  orifice  plate. 
Three  (3)  feet  (12  pipe  diameters)  of  straight  pipe  were 
down  stream  of  the  orifice.  When  the  orifice  plate  was 
installed,  the  inside  of  the  pipe  was  inspected.  The  pipe 
inside  had  to  be  ground  with  a  hand  grinder  to  remove  weld 
slag  from  where  the  pipe  was  welded  to  the  orifice  plate 
flanges.  The  grinding  process  left  the  inside  of  the  pipe 
smooth  and  free  from  obstructions.  Upstream  of  the  orifice 
plate  the  pipe  diameter  was  3.062±0.002  inches.  The 
downstream  pipe  diameter  was  3.056*0.002  inches.  Orifice 
plates  with  hole  diameters  varying  from  0.25  inches  to  1.0 
inches  were  used.  Orifice  plate  holes  were  varied  so  that 
for  a  given  mass  flow  rate  an  easily  measured  pressure  drop 
across  the  orifice  was  created.  The  holes  also  had  to  be 
varied  so  that  the  flow  would  not  be  choked  at  the  orifice 
hole. 

Flange  taps  and  a  water  manometer  were  used  to  measure 
the  pressure  differential  across  the  orifice  plate.  The 
following  expressions  were  used  to  calculate  the  mass  flow 
rate  (47); 

m  =  °'5202  l2-5) 

where  m  is  the  measured  mass  flow  rate  in  lbm/sec,  p^nd  p2 
are  the  upstream  and  down  stream  pressures  in  psia,  pi  is 
the  upstream  density  in  lbm  per  cubic  foot,  ^  is  the  ratio 
of  diameters  d/D  where  d  is  the  orifice  plate  diameter  in 
inches,  D  is  the  inside  pipe  diameter  in  inches,  C  is  the 
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coefficient  of  dischai^,,  Y  is  a  compressibility  expansion 
factor,  and  Fa  is  the  metal 1  s  thermal  expansion  factor.  The 
discharge  coefficient  is  given  by 


C  = 


(2.6) 


where  K  is  the  flew  coefficient  defined  as 


K  =  K0  1  + 


(  1  +  Re  ) 


(2.7) 


where  Re  is  the  axial  Reynolds  number  and  K0  is  the  limiting 
value  of  K  for  any  specific  value  of  D  and  when  Re 
becomes  infinitely  large.  It  is  defined  as 


K»=  K-(W5*) 


where 


(2.8) 


K.  =  .5993  -+- 


.007 


+  C364 + 


+  .4(t.63-  -1)  (.07+  4)- ft 
-(•008+— d-)(-5-  ft)*+  (^  +  3)(ft-.7)T  (2.91 


and 
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The  axial  Reynolds  number  can  be  expressed  in  terms  of  mass 
flow  rate  as 


Re  = 


48  m 


7T//D 


(2.10) 
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Finally,  the  compressibility  factor,  Y,  is  given  by 


Y=  1  -  (.41  +  .350*)*-  (2.11) 

where  x  is  the  differential  pressure  ratio  — and  r  is  the 
ratio  of  specific  heats  for  the  gas. 

Air  Supply  Manifold 

A  manifold  was  designed  and  built  to  supply  air  to  the 
porous  pipe  as  shown  conceptually  in  Figure  2.1.  Figure  2.5 
is  a  detailed  sketch  of  the  manifold  used.  Fortyeight 
valves  allowed  for  metering  flow  in/out  of  12  chambers 
axially  along  the  pipe.  The  valves  were  used  in  an  attempt 
to  control  the  axial  distribution  of  the  air  to  and  from  the 
pipe. 


Figure  2.5  Air  Supply  Manifold 


Porous  Pipe 

Inexpensive  polyethylene  porous  pipe  produced  by  Porex 
Technologies  was  selected  for  the  experiment  because  of  its 
uniform  properties.  A  design  pressure  drop  across  the  pipe 
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of  30  psi  was  selected.  The  higher  the  pressure  drop  used, 
the  more  uniform  the  extraction  and  injection  in  the  pipe; 
however,  too  large  of  a  pressure  drop  would  restrict  flow  to 
an  extent  that  sonic  flow  could  not  be  achieved  in  the  pipe 
core.  The  final  test  configuration  had  a  one  foot  long 
evaporator  and  a  one  foot  long  condenser.  The  porus  pipe 
bad  an  inside  diameter  of  0.650  inches  and  an  outside 
diameter  of  1.00  inches  with  an  average  pore  size  of  35 
microns . 


Pipe  Calibration 

Muskat  (48)  states  that  for  the  flow  of  a  compressible 
gas  through  a  porous  medium,  the  mass  flux  (  pv  )  can  be 
related  to  the  pressure  difference  across  the  porous  medium 
by  the  expression: 

4Cp2)  -=  A(pv)2  4*  B (pv)  (2.12) 

Four  samples  of  35  micron  porous  pipe  were  installed  in 
the  manifold  shown  in  Figure  2.6.  4Cp*)  and  pv  were  measured 
for  each  sample  of  pipe  for  various  mass  flow  rates.  The 
results  are  shown  in  Figure  2.7. 

Using  least-squares  techniques  to  curve  fit  che 
experimental  data  in  Figure  2.7,  the  constants  A  and  B  in 
Equation  (2.12)  were  found  to  be  3.639xl09  and  1.7015xl08, 
respectively.  Determination  of  the  constants  A  and  B  was 
needed  for  the  injection  and  extraction  boundary  conditions 
used  in  the  computer  model  (c.f.  Chapters  IV, V).  The  flow 
characteristics  varied  for  the  four  samples  by  ±8%. 
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Figure  2.6  Porous  Pipe  Calibration  Manifold 


The  samples  were  selected  from  different  parts  of  a  three 
foot  section  of  pipe.  One  sample  from  each  end  and  two 
samples  were  selected  from  the  middle.  A  final  calibration 
coefficient  was  needed  so  the  experimental  and  numerical 
nass  flow  rates  would  be  the  same.  It  was  found  that  a 
factor  of  1.07  times  the  mean  value  represented  by  Eq  (2.12) 
best  described  the  mass  flow  rate. 

Installation  of  the  Porous  Pipe  in  the  Manifold 

To  prevent  air  from  blowing  between  the  ends  of  the 
porous  pipe  and  the  pipe  manifold  wall  (to  force  all  air  to 
go  through  the  porous  pipe)  great  care  was  taken  to  insure 
good  seals  between  the  pipe  and  the  manifold  wall.  Figure 
2.8  illustrates  how  the  seals  were  made. 
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Figure  2.8  Porous  Pipe  End  Seals 


As  can  be  seen  from  Figure  2.8,  wr:»r»ever  che  potuus  pipe  was 
butted  up  against  a  wall,  a  grove  was  cut  in  the  manifold  to 
hold  the  porous  pipe.  The  grove  had  an  o-ring  in  it  and  was 
also  filled  with  a  silicone-base  sealant  that  further 
inhibited  leaks. 


Pressure  Taps 

Pressure  caps  were  installed  in  tha  porous  pipe  by 
cementing  1/2  inch  long  0.0601  inch  outside  diameter 
stainless  stee]  tubes  force  fit  into  0.058  inch  diameter 
drill  holes  resulting  in  a  snug  fit.  The  stainless  steel 
tube  was  inserted  into  the  porous  pipe  so  that  its  end  was 
flush  with  the  inside  of  the  porous  pipe.  The  pressure  taps 
were  located  as  shown  in  Figure  2.9.  The  actual  pressure 
tap  locations  are  given  in  Appendix  A,  Figure  A.l. 
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^  Symbol  for  Pressure  Tap 


During  the  experiment,  the  rake  was  located  so  that  the 
ends  of  the  total  pressure  probes  were  adjacent  to  one  of 
the  static  pressure  ports  (thus  velocity  profiles  could  be 
measured  at  any  of  15  locations  along  the  pipe).  The  axial 
velocities  were  calculated  using  the  following  equations. 

u  =  Mav/yRT"  (2.13) 

-£-=  (,  +  J1i-lMiy5r:T  <2l4> 

To  _  1  .  V—  1  (2.15) 

—  ^  2 

Where  p#  is  the  stagnation  pressure,  p  is  the  static 
pressure,  T0  is  the  total  temperature,  and  Ma  is  the  Mach 
number . 

Turbulence  Measurements 

To  measure  the  effect  of  injection,  extraction,  and 
pressure  gradient  on  the  flow  field's  turbulence,  the 
velocity  rake  was  replaced  by  a  hot-film  anemometer.  A 
Model  1050,  constant  temperature  anemometer  manufactured  by 
TSI  Incorporated  was  used  with  a  TSI  1212.10  hot-film 
anemometer.  A  TSI  Model  1076  digital  voltmeter  was  used  to 
measure  the  mean  voltage  (velocity)  values  while  a  B&K * 
Precision  Dual  Time  Base  Oscilloscope  model  1570A  was  used 
to  visualize  the  fluctuating  velocity  component.  A  second 
TSI  Model  1076  digital  voltmeter  was  used  to  find  the  RMS 
(root-mean  square)  of  the  fluctuating  voltage  (velocity). 
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The  anemometer  was  limited  to  the  center  line  of  the 


test  section  by  a  lateral  support  which  was  attached  to  the 
probe  to  ensure  it  did  not  come  in  contact  with  the  pipe 
wall.  The  support  was  located  four  inches  from  the  end  of 
the  probe.  This  prohibited  measurements  closer  than  four 
inches  from  the  downstream  end  of  the  test  section. 
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III.  Experimental  Results 


The  purpose  of  the  experiment  was  to  gather  data  to  be 
used  to  validate  the  numerical  models.  First,  the 
experimental  pressure  and  velocity  data  will  be  presented. 
Next,  the  effect  of  the  velocity  rake  and  hot-film 
anemometer  on  the  flow  field  will  be  discussed.  Lastly,  the 
results  of  the  turbulence  studies  will  be  presented. 

Axial  Pressure  Data 

One  of  the  primary  goals  of  this  research  was  to  gain  a 
better  understanding  of  the  effect  of  injection  and 
extraction  on  the  wall  shear  stress  and  thus  the  pressure 
variations  in  a  compressible  flow.  Figure  3.1  shows  how  the 
pressure  varied  axially  along  the  simulated  heat  pipe  (c.f. 
Chapter  II).  The  cases  shown  represent  five  typical  cases 
with  different  mass  flow  rates.  The  pressure  varied  due  to 
shear-stress  as  well  as  momentum  effects.  From  the 
discussion  of  ideal  (shear-stress  free)  flow  with  mass 
injection/extraction  (c.f.  Chapter  II),  the  pressure  at  the 
end  of  the  pipe  matched  that  at  the  beginning.  This  had  to 
be  the  case  because,  without  shear  stress,  no  other  forces 
were  present  to  make  the  end  pressures  other  than  equal.  In 
ideal  flow,  pressure  variations  are  due  only  to  momentum 
(acceleration/deceleration)  effects.  In  Figure  3.1,  then, 
it  is  clear  that  shear  is  present  and  such  "friction" 
effects  are  manifest  in  the  pressure  drop  between  the  pipe 
ends.  The  friction  pressure  drop  increases  with  mass  flow 
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rate.  Momentum  effects  can  be  seen  in  all  of  the  cases 
shown.  Most  interesting  is  the  highest  mass-flow-rate  case. 
In  the  evaporator  region,  0  <  Z/L  <  0.5,  the  pressure  drops 
with  increasing  Z/L  as  the  fluid  accelerates  due  to  mass 
addition.  At  the  end  of  the  evaporator,  the  pressure  ratio 
was  very  close  to  0.416,  the  pressure  ratio  predicted  by 
frictionless  flow  theory.  This  corresponds  to  sonic 
velocity  at  the  "throat"  (evaporator/condenser  junction)  and 
choked  flow.  Theoretically,  the  mass  removal  in  the 
condenser  can  either  decelerate  or  accelerate  the  flow  (c.f. 
Chapter  II).  For  the  highest  mass-flow-rate  case  shown,  the 
pressure  continues  to  drop  in  the  entrance  region  of  the 
condenser.  Referring  again  to  the  discussion  in  Chapter  II, 
this  corresponds  to  the  flow  continuing  to  accelerate  to 
supersonic  velocities.  For  the  four  subsonic  cases  shown, 
the  mass  removal  caused  the  flow  to  decelerate  and  the 
pressure  ratio  to  rise.  For  the  supersonic  case,  the  sharp 
increase  in  pressure  between  Z/L's  of  0.63  and  0.72  is  due 
to  a  normal  shock  which  is  required  to  deccelerate  the  flow 
before  it  reaches  the  pipe  end. 

Because  of  the  compressible  nature  of  the  flow, 
non-uniform  mass  injection  and  removal  occur  along  the  pipe 
studied.  In  Chapter  II  it  was  shown  that  the  amount  of  wall 
mass  transfer  depends  on  the  pressure  difference  across  the 
pipe  wall  as  described  by  Equation  (2.12).  As  mass  was 
added  in  the  evaporator,  the  flow  accelerated  down  the  pipe 
and  the  pressure  dropped  (Figure  3.1).  Because  the  external 
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pressure  was  constant  along  the  pipe  and  the  internal 
pressure  varied  axially  along  the  pipe,  the  mass  injection 
and  removal  varied  along  the  pipe.  The  mass  injection  was 
smallest  near  the  upstream  end  of  the  evaporator  and  highest 
near  the  evaporator/condenser  junction.  Similarly,  the  mass 
removal  was  smallest  at  the  condenser /evaporator  junction 
and  greatest  at  the  downstream  end  of  the  condenser. 

In  the  evaporator  the  effect  of  the  increasing  mass 
injection  was  to  increase  the  rate  of  pressure  drop  axially 
along  the  pipe.  An  attempt  was  made  to  create  a  flow 
situation  with  uniform  mass  injection  and  extraction.  This 
was  done  by  axially  varing  the  external  pressures  along  the 
outside  of  the  test  section.  This  turned  out  to  be 
difficult  to  do;  however,  the  trend  of  approaching  uniform 
mass  transfer  was  to  linearize  the  pressure  variation  in  the 
evaporator.  Smaller  changes  were  noted  in  the  condenser 
pressure  distribution,  probably  due  to  larger  friction 
forces  affecting  the  pressure  in  that  region. 

Velocity  Data 

The  velocity  rake  described  in  Chapter  II  was  used  to 
measure  the  radial  variation  in  the  axial  velocity  at 
different  axial  locations  along  the  test  section.  Figures 
3.2  through  3.6  are  the  velocity  results  which  correspond  to 
the  five  axial  pressure  distributions  shown  in  Figure  3.1. 
The  five  profiles  shown  are  at  axial  locations  of  7,  11,  13 
3/8,  17  3/8,  and  21  3/8  inches  (measured  from  the  upstream 
end  of  the  pipe). 
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The  velocity  rake  was  0.010  inches  narrower  than  the 
inside  diameter  of  the  porous  pipe.  Thus,  the  radial 
location  of  the  velocity  probes  was  known  to  within  0.010 
inches. 

By  examining  Figures  3.2  through  3.6,  several  velocity 
trends  can  be  noted.  The  most  obvious  trends  are 

1)  Increasing  velocities  occur  at  higher  mass  flow  rates  and 

2)  the  axial  variation  in  the  velocities  was  increasing 
through  the  evaporator  and  than  decreasing  in  the  condenser. 
The  supersonic  case  (Figure  3,6)  does  t.\ot  indicate 
supersonic  velocities.  This  is  believed  to  be  due  to 
experimental  error  caused  by  the  velocity  rake  influencing 
the  flow  field.  Studies  conducted  with  a  hot-film 
anemometer  indicated  that  small  disturbances  in  the 
supersonic  evaporator  flow  would  cause  the  flow  to  become 
subsonic.  As  will  be  discussed  later,  the  velocity  probe 
also  affected  the  static  pressures  measured  along  the  pipe. 
This  would  be  another  source  of  error  in  the  implied 
velocity  measurements. 

The  last  observation  to  be  discussed  relates  to  the 
effect  of  mass  injection  and  removal  on  the  velocity 
profiles.  In  four  out  of  the  five  cases  shown,  the  velocity 
profiles  in  the  condenser,  when  compared  to  those  in  the 
evaporator,  are  flatter  in  the  center  of  the  pipe  with  steep 
gradients  near  the  pipe  wall.  later  this  will  be  shown  to 
be  due  in  part  to  turbulence  in  the  condenser  (as  compared 
to  laminar  flow  in  the  evaporator)  and  in  part  due  to  the 
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mass  removal  in  the  condenser. 


Effect  of  Velocity  Probe  on  Flow  Field 

As  inferred  from  the  above  discussion,  the  velocity 
probe  and  the  hot~film  anemometer  affected  the  flow  field. 
Figure  3.7  demonstrates  how  the  axial  pressure  distribution 
was  affected  by  the  velocity  probe.  These  pressure 
disturbances  can  be  divided  into  two  parts,  that  caused  by 
the  velocity  rake  and  that  caused  by  the  probe  shaft.  When 
the  velocity  rake  was  in  a  region  of  large  air  velocities  it 
would  disturb  the  flow  more  than  the  probe  shaft.  Longer 
lengths  of  shaft  produced  greater  pressure  disturbances  than 
shorter  lengths. 

Turbulence  Measurements 

When  numerically  modeling  the  problem  it  was  observed 
that  a  totally- turbulent  flow  model  would  over  predict  the 
friction  pressure  loss,  while  a  totally-laminar  model  under 
predicted  the  pressure  loss  [this  has  also  been  noted  by 
Busse  (26)1.  To  understand  which  parts  of  the  flow  were 
turbulent  and  which  were  laminar  a  hot-film  anemometer  was 
used  to  measure  turbulence  levels.  A  digital  volt  meter 
measured  the  RMS  of  the  hot-film's  alternating  voltage 
output.  It  was  found  that  the  RMS  of  the  alternating 
voltage  was  constant  and  small  in  the  evaporator,  consistent 
with  the  interpretation  of  laminar  flow.  As  the  hot-film 
anemometer  was  moved  into  the  condenser  region,  the  RMS  of 
the  alternating  voltage  rose  sharply  over  a  small  but 
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defined  length  of  the  pipe,  indicating  a  region  of 
transition  in  character  of  the  flow  from  fully  laminar  to 
fully  turbulent. 

Figure  3.8  gives  some  representative  examples  of  the 
measurements  made.  In  Figure  3.8,  the  RMS  of  the 
alternating  voltage  measured  is  normalized  with  respect  to 
the  RMS  of  the  alternating  voltage  measured  in  the  fully 
turbulent  region.  For  all  cases  studied  (up  to  Reynolds 
numbers  based  on  pipe  diameter  of  1,000,000),  the  flow  was 
always  laminar  in  the  evaporator  region  [Uageman  and  Guevara 
(16)  observed  a  similar  phenomenon}.  This  is  believed  to  be 
due  to  the  strong  favorable  pressure  gradient  in  the 
evaporator.  From  Figure  3.8  it  can  also  be  seen  that  once 
the  flow  enters  a  region  with  an  adverse  pressure  gradient 
in  the  condenser,  the  flow  becomes  turbulent.  Except  in  the 
supersonic  case  (c.f.  below),  the  transition  region  always 
started  at  the  entrance  to  the  condenser  (Z/L  =0.5  in 
Figure  3.8)  near  the  pipe  wall  and  then  stretched  down 
stream  toward  the  center  of  the  flow  channel  where  it  was 
measured  by  the  hot-film  anemometer.  At  higher  flow  rates, 
transition  in  the  center  of  the  flow  channel  moved  down 
stream.  Figure  3.9  illustrates  what  the  flow  field  may  look 
like. 

Such  a  description  of  the  character  of  the  flow  is 
consistent  with  the  fact  that  at  higher  flow  velocities  the 
beginning  of  the  transition  region  moved  down  stream  at  the 
center  of  the  pipe. 
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Figure  3.9  Turbulence  Character  of  the  Flow 


All  of  the  turbulence  data  followed  the  above  trend 
except  for  the  case  where  the  flow  became  supersonic  in  the 
condenser.  For  the  supersonic  case  the  flow  remained 
totally  laminar  until  the  shock  was  reached  and  then 
transition  to  turbulent  flow  abruptly  occurred  (i.e.  no 
extended  "transition  region  appeared  to  be  present). 

A  second  set  of  turbulence  experiments  was  conducted 
to  determine  the  axial  Reynolds  number  ,  Eq  (2.10),  at  which 
the  condenser  flow  would  remain  laminar.  With  the  hot-film 
anemometer  located  in  the  condenser  at  the  location  Z/L  = 
0.67,  the  system  flow  rate  was  decreased  until  the  flow 
became  laminar.  Figure  3.10  contains  the  results.  As  can 
be  seen,  at  axial  Reynolds  numbers  below  about  12,000  the 
flow  was  laminar.  When  the  axial  Reynolds  number  was 
12,000,  the  Mach  number  at  the  simulated  heat  pipe's  throat 
was  0.06,  well  in  the  subsonic  range. 
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IV.  Mathematical  Flow  Description 


The  flow  field  to  be  modeled  is  mathematically 
described  in  this  chapter.  The  chapter  is  divided  into  five 
sections.  First  the  general  continuity,  momentum  and  energy 
equations  are  presented  in  both  vector  and  cylindrical  form. 
Second,  the  closure  relations  needed  to  complete  the  set  of 
equations  will  be  presented.  Third,  the  boundary  conditions 
which  relate  to  steady  and  transient  simulated  heat-pipe 
operation  will  be  described.  Fourth,  the  Reynolds -Averaged 
continuity,  momentum  and  energy  equations  that  were  used  for 
describing  the  turbulent  flow  will  be  developed.  Lastly, 
there  will  be  a  discussion  of  how  turbulence  modeling  was 
accomplished. 

Governing  Equations 

The  equations  governing  the  motion  of  an  unsteady, 
compressible,  viscous  gas  with  no  body  forces  and  no  heat 
sources  are  derived  from  conservation  laws  of  mass,  momentum 
and  energy  (49:181-206). 

The  continuity  equation  in  conservation  form  and  using 
vector  notation  is: 


*~£  +  divjpVf  =  o  (4.1) 

o  t 

Where  p  is  the  density,  t  is  time,  and  "v  is  the  velocity 
vector.  When  written  in  cylindrical  coordinates,  the 
equation  becomes 


+  IhkeA  +  linui  =  o  (4.2> 

dt  r  3  r  dz 

Where  r  is  the  radial  position,  z  is  the  axial  position,  v 
is  the  radial  velocity  and  u  is  the  axial  velocity.  The 
azimuthal  terms  have  been  eliminated  £rom  the  general 
cylindrical  continuity  equation.  Throughout  the  rest  of 
this  paper,  cylindrical  will  refer  to  the  general 
cylindrical  form  of  an  equation  minus  the  azimuthal  terms. 

Conservation  of  momentum  in  conservation  form  and  using 
vector  notation  is 


aivlo'VV’l  =  di»lTl  -  gr*d|p|  (4.3) 
Where  p  is  the  pressure,  and  7  is  the  viscous  stress  tensor 
defined  by 


r  rn  m[Vv  +  VV7]  +  Xdiv|'v|n  (4.4) 

M  is  the  viscosity,  X  is  the  second  coefficient  of  viscosity 
and  fl  is  the  unit  normal  tensor  defined  by 


fi  -« 


1  0  0 
0  4  0 
0  0  1 


(4.5) 


When  written  in  cylindrical  coordinates.  Equation  (4.3) 
becomes 


+  1  d  I  rpv2l  +  d|puy| 

d  t  r  r)  r  d  z 

jlPul  4  1  dlrpuv  }  d|pu2! 

at  rTr  - 


llilfil.  +  ^lr<Tzr  _  (4  g) 

a  z  J  r 


~  ^ 1  +  a{ r<r2J  (4.7) 

r  a  r  d  z 


The  stress  terms  are  defined  as 
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(4.9) 


(4.10) 


(4.11) 


Conservation  of  energy  in  conservation  form,  assuming 
no  internal  energy  generation  and  no  radiation  heat 
transfer,  can  be  written  as 

-~}pO  +  ~]J  *  <nv|pv[»  +  x2]j  =  -div[pv] 

♦  div[T-"v*]  +  div^]  (4.12) 

Where  e  is  the  internal  energy  per  unit  mass,  and  q“ is  the 
conduction  heat  transfer  per  unit  area.  When  written  in 
cylindrical  coordinates,  the  equation  becomes 

+  JL  \  puE  -  -  uazr  +  dz  j 

at  az|  ’  (4.13) 

+  TTr|  r^PVE  '  vcrrr  "  V£Trz  +  q^j  *  0 

where, 

_  1  l  2  2  )  (4.14) 

E  -  «  *  -ju  +  «  } 

Equations  (4.2),  (4.6),  (4.7)  and  (4.13)  are  the 
governing  equations  for  the  problem  in  conservation  form. 
They  can  be  written  in  vector  form  as 
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a  u  a  f  i  a  |  -s* 

- —  +  - —  + - {  r  G 

at  a  z  r  a  r 


r 
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Closure  Relations 

Upon  examining  equation  (4.15),  it  can  be  seen  that 
additional  relations  are  needed  to  form  a  closed  set  of 
equations. 

Stokes  analogy  can  be  used  to  relate  the  second 
coefficient  of  viscosity  to  the  viscosity. 


X  *  --|-M  (4.16) 

Fourier's  law  of  heat  conduction  can  be  used  to 
represent  the  energy  flux  as  a  function  of  temperature. 

q  =  -k  — -  (4.17) 

r  ar 

c  =  (4.18) 

*  a  * 

where  k  is  the  thermal  conductivity  of  the  fluid. 
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The  viscosity  and  thermal  conductivity  can  be  expressed 
as  functions  of  temperature.  For  example,  Sutherland's 
formula  for  viscosity  is  given  by 


where  C1 
number 


T  +  C. 


and  C,  are  constants  for  a  given  gas. 


(4.13) 

The  Prandtl 


Pr  ~  ~P-M  (4.20) 

k 

can  be  used  to  find  the  thermal  conductivity  once  the 
viscosity  and  specific  heat  at  constant  pressure  are  known. 
This  is  possible  if  Prandtl  number  is  assumed  to  be 
constant,  which  is  a  fair  assumption  for  most  gases. 

The  additional  relationships  come  from  assuming  that 
tha  vapor  is  a  perfect-gas.  The  perfect  gas  equation  of 
state  is 


p  =  pRT  (4.21) 

where  R  is  the  gas  constant.  Also  for  an  perfect  gas, 
e  =  e(T)  .  or  the  internal  energy  is  a  function  of 
temperature  only.  The  following  relations  hold  true  for  a 
perfect  gas. 


(4.22) 


R 

y-i 


(4.23) 
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<4.24) 


(4.25) 


where  cv  and  cp  are  the  specific  heats  at  constant  volume 
and  pressure,  respectively,  and  y  is  the  ratio  of  specific 
heats  defined  by  Equation  (4.2b).  Using  Equations  (4.22)  to 
(4.25),  Equation  (4.21)  can  be  rewritten  in  the  forms: 


p  s  [y  -  IjPe 

_  O 

7  ~  R 


(4.26) 


(4.27) 


These  last  expressions  complete  the  set  of  equations. 

Equation  (4.15)  presented  earlier  applies  to  many 
cylindrical  problems.  The  boundary  conditions  which  apply 
to  a  given  problem  distinguish  it  from  other  problems  which 
use  Equation  (4.15).  Next  the  boundary  conditions  which 
apply  to  a  heat  pipe  will  be  described. 


Boundary  Conditions 

At  the  ends  of  the  simulated  heat  pipe,  both  the  radial 
and  axial  velocity  components  were  assumed  to  be  zero,  or 


u[rto]  »  u[r,L]  =  v[r,0]  *  v[r,L]  *  0  (4.28) 

Where  L  is  the  length  of  the  heat  pipe. 

The  axial  pressure  gradient  at  the  heat  pipe-ends  was 
handled  in  one  of  two  different  ways.  One  way  was  to  set  it 
equal  to  zero. 
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(4.29) 


#(r.O]  =if[r,L]  =  O 

This  technique  has  been  reported  to  aid  in  the  numerical 
stability  o£  finite-difference  solutions  and  is  a  good 
assumption  because  the  axial  pressure  gradient  should  be 
amall  at  the  heat-pipe  ends.  It  gave  the  same  results  as 
the  second  method  described  below.  A  more  complicated 
approach  was  to  solve  Equation  (4.7),  the  axial  momentum 
equation,  for  the  axial  pressure  gradient  term  and  then 
estimate  the  pressure  gradient  by  approximating  the 
expression  using  finite  differences  at  z=0  and  z-L. 

3P  -  dlpu2}  ,  4_„  du  (4.30) 

3z  hi  3*  dz2 

This  method  required  more  computer  time  and  did  not  improve 
the  results.  For  this  reason,  the  quicker,  simpler  approach 
was  used. 

The  fourth  boundary  condition  needed  at  the  pipe  ends 
was  that  for  the  total  energy.  The  temperature  was  assumed 
to  have  no  axial  gradient  at  the  pipe  ends. 

ffr-.O]  =|l[r,L]  =  o 

Along  the  length  of  the  heat  pipe,  the  "no-slip" 
condition  for  the  axial  component  of  velocity  was  assumed  to 
apply  (i.e.,mass  injection/extraction  was  assumed  to  be  in 
the  radial  direction  only).  This  led  to  the  expression 
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u[R,z]  ~  0 


(4.32) 


where  R  is  the  radius  of  the  vapor  space.  The  radial 
velocity  component  at  the  wall  was  dependent  on  the  rate  of 
vapor  injection  or  extraction  at  the  wall  and  could  be  varied 
axially  along  the  pipe.  The  variation  was  specified  as  a 
funtion  of  position  and  time.  This  was  done  by  specifying 
the  pipe's  outside  enviornment  pressure  (source  and  sink 
pressure).  The  radial  velocity  at  the  wall  was  found  from 
Equation  (4.33). 


4(p2)  =  A(pv)2  •+*  B  ( pv)  (4.33) 


a  and  B  are  properties  of  the  porous  pipe,  dtp2)  is  the 
inside  wall  pressure  squared  minus  the  outside  pressure 
squared.  Further  details  on  the  above  equation  can  be  found 
elsewhere  (48:55-119). 

The  radial  pressure  gradient  at  the  wall  was  found  in  a 
similar  manner  to  the  axial  pressure  gradient  at  the  heat- 
pipe  ends.  One  method  was  to  set  it  equal  to  zero. 

-~[R.z]  “  0  (4.34) 

The  other  alternative  was  to  isolate  the  radial  pressure 
gradient  term  in  the  radial  momentum  Equation  (4.6)  and  then 
evaluate  the  expression  at  the  heat  pipe  wall. 
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(4.35) 
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Both  methods  gave  comparable  results,  thus  the  £irst,  which 
used  the  least  amount  of  computer,  time  was  picked. 

Along  the  axis  of  symmetry,  symmetry  boundary 
conditions  were  applied  to  all  variables. 


dp  _  d u  dv  dE 
Sr  Sr  dr  Sr 


(4.36) 


*s 


•  *  •'»  -1 


An  alternative  to  applying  the  symmetry  boundary  condition 
to  the  radial  velocity  was  to  set  the  radial  velocity  equal 
to  zero  along  the  pipe's  center  line.  Both  methods  were 
tried.  The  symmetry  condition  gave  the  better  results 
probably  because  of  the  numerical  grid  picked  to  handle  the 
singular  point  in  the  governing  equations  at  the  centerline 
(r  *  0).  In  order  to  avoid  the  singular  point,  a  grid 
network  was  constructed  which  straddled  that  point.  When 
using  the  no  radial  velocity  method,  the  radial  velocity  at 
the  nodes  closest  to  the  centerline  was  set  equal  to  zero. 
This  prohibited  mass  from  entering  or  leaving  the  center 
most  section  or  the  pipe.  With  the  symmetry  boundary 
condition,  this  problem  was  avoided.  It  was  also  observed 
that  with  the  symmetry  boundary  condition,  the  radial 
velocity  at  the  center  of  the  pipe  was  always  zero.  Thus, 
the  one  boundary  condition  achieved  both  goals. 


Reynolds -Averaged  Navler-Stokes  Equations 

For  turbulent  flow  problems,  an  averaging  process  is 
used  to  solve  for  the  mean  motion  which  was  of  primary 
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interest.  According  to  Cebeci  and  Smith  (50:49)  this 
averaging  is  valid  for  both  steady  and  unsteady  flows, 
provided  that  the  interval  over  which  the  average  is  taken 
is  long  in  comparision  with  the  reciprocal  of  the  mean 
frequency  of  the  turbulenes. 

Cebeci  and  Smith  (50:47-61)  introduced  an  averaging 
procedure  which  leads  to  a  convenient  form  of  the  equations. 
The  dependent  variables  are  written  in  terms  of  time 
averaged  mean  and  fluctuating  terms 

P  =  P  +  p' 

P  S  P  +  p' 

(4.37) 

a  —  a  +  c 

q  *  Q  + 

and  mass  averaged  mean  and  fluctuating  quantities 

U  s  U  4  U 

^  // 

V  K  V  +  V 


•  «  6  +  0 
k  «  k 


(4.38) 


P  *  /7 


X  =  X 

Note  that  the  momentum  and  energy  transport  coefficients 
have  been  assumed  to  have  no  fluctuating  components. 

For  any  variable,  f,  the  time  average  is  defined  as 


(4. 39) 
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In  mass  averaging,  the  mass  flux  is  written  as  a  single  term 
and  the  mean  velocity  is  defined  as 


(4.40) 


Expressions  similar  to  Equation  (4.40)  may  also  be  written 
for  the  radial  velocity  and  the  internal  energy.  Upon 
substituting  the  variables,  in  terms  of  mean  and  fluctuating 
quantities,  into  Equations  (4.2),  (4.6),  (4.7)  and  (4.13) 
and  rime  averaging,  the  following  mean  flow  equations 
result: 
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where  E  =  •  +  — l u  +  v  1  .  In  the  developeroent  of 
Equation  (4.44),  the  following  terms  were  assumed  to  be 
small  enough  to  ignore. 
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Eqs  (4.41)  to  (4.44)  differ  from  their  laminar 
counterparts  in  that  they  contain  the  additional  terms: 
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Reynolds  Stress 


(4.45) 


pv 
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Reynolds  Heat  Flux 


(4.46) 


These  terras  represent  the  effect  of  the  turbulent 
fluctuations  on  the  mean  motion. 


Turbulence  Model 

The  turbulent  fluctuating  averages  are  additional 
unknowns  for  which  there  are  no  corresponding  equations. 

The  equations  must  be  closed  by  appropriate  expressions  for 
the  unknowns.  Most  methods  to  date  have  been  based  upon  the 
eddy  viscosity  concept.  In  this  method,  the  Reynolds  stress 
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is  modeled  as  being  proportional  to  the  laminar  stress  of 
the  mean  flow,  with  the  coefficient  of  proportionality  being 
defined  as  the  eddy  viscosity.  For  example: 
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A  similar  eddy  conductivity  (kt)  for  heat  flux  can  be  defined  as 
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Upon  substituting  Equations  (4.47)  and  (4.48)  into 
Equations  (4.41)  through  (4.44)  the  Reynolds-averaged 
cylindrical  Navier-Stokes  equations  may  be  written  as 
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A  model  proposed  by  Baldwin  and  Lomax  (51)  was  used  to 
model  the  eddy  viscosity.  The  turbulence  model  proposed  by 
Baldwin  and  Lomax  is  patterned  after  that  of  Cebeci  and 
Smith  (50)  with  modifications  that  avoid  the  necessity  for 
finding  the  edge  of  the  boundary  layer.  It  is  a  two-layer 
algebraic  eddy  viscosity  model  in  which  nx  is  given  by 
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where  y  is  the  normal  distance  from  the  wall  and  ycr  is  the 
smallest  value  of  y  at  which  /it  values  from  the  inner  and 
outer  formulas  are  equal. 

The  Prandtl-Van  Driest  formulation  is  used  in  the  inner 
region 
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where  |  =  ky£l  -  expj  ~+|J  and  M  is  the  magnitude  of  the 
vorticity 
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For  the  outer  region 
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where  K  is  the  Clauser  constant,  is  an  additional 

constant,  and 
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The  quantities  f  and  y  are  determined  from  the  function 


max 
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(4.56) 


F(y)  =  y|u|j  i  -  exp(-^  ) 

The  quantity  Fmax  is  the  maximum  value  of  F(y)  that  occures 
in  a  profile  and  ym_w  is  the  value  of  y  at  which  it  occurs. 
The  function  Fk(y)  is  the  Klebanoff  intermittency  factor 
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The  quantity  u  is  the  difference  between  the  maximum  and 
minimum  total  velocity  in  the  profile  (i.e.,  at  a  fixed  z 


station) 
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The  second  term  in  Udi{  is  taken  to  be  zero  (except  in 
wakes  > . 

The  constants  appearing  in  the  foregoing  relations  were 
determined  by  requiring  agreement  with  the  Cebeci 
formulation  for  constan;  pressure  boundary  layers  at 
transonic  speeds.  The  values  determined  are 


A+  - 


k  =  0.4 

K  =  0.0168 
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Transition  Region  Model 

Based  on  the  experimental  measurements  presented  in 
Chapter  III,  the  flow  was  found  to  always  be  laminar  in  the 
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evaporator  and  usually  turbulent  in  the  condenser.  A 
transition  region  model  was  needed  to  model  the  change  from 
fully  laminar  to  fully  turbulent  flow. 

The  model  used  was  that  of  Dhawan  and  Narasimha  (52). 
The  transition  region  model  is 


EXp(-0.412  x2)  (4.59) 


where  x  is  the  normalized  strearawise  coordinate  in  the 
transition  region 


x  = 


(x  -  xttl)/  Q 


Xt,i  <  X  <  *t,f 


(4.60) 


xt|  and  xtf  denote  the  .initial  and  final  locations  of  the 
transition  zone.  Q  is  a  measure  of  the  extent  of  the 
transition  region  defined  by 


■  *r-H~  V = v4  ,4-61> 

In  the  above  mentioned  model,  three  parameters  are 
required,  namely  and  ♦  For  present 

purpose,  these  parameters  were  obtained  from  experimental 
data. 
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V.  Numerical  Solution  Technique 


4JK 


The  numerical  approach  that  was  used  to  solve  the 
system  of  equations  developed  in  chapter  XV  will  be 
discussed  in  this  chapter.  The  general  solution  procedure 
was  that  developed  by  MacCormack  in  1969  (53).  It  is  known 
as  the  Explicit  MacCormack  Method.  The  general  procedure 
used  by  MacCormack  will  be  described  in  the  first  part  of 
this  chapter.  The  presentation  is  paraphased  from  the 
presentation  by  Anderson,  Tannehill  and  Pletcher 
(49:482-485).  After  the  method  has  been  described,  the 
computer  code  that  was  used  to  solve  the  problem  will  be 
outlined.  Lastly,  the  finite-difference  grid  that  was  used 
for  the  problem  solution  will  be  introduced. 


Explicit  MacCormack  Method 

When  the  MacCormack  scheme  is  applied  to  the 
compressible  Navier-Stckes  equation  given  by  Equation  (4.15) 
the  following  algorithm  results: 

Predictor: 


(5.1) 


Corrector : 


where  z  =  k^z  ,  and  r  =  j^r  .  This  explicit  scheme  is 
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second-order  accurate  in  both  space  and  time.  In  the 
present  form  of  this  scheme,  forward  differences  are  used 
for  all  spatial  derivatives  in  the  predictor  step  while 
backward  differences  are  used  in  the  corrector  step. 

The  derivatives  appearing  in  the  viscous  terms  of  F 
and  oT  must  be  differenced  correctly  in  order  to  maintain 
3econd-order  accuracy.  This  is  accomplished  in  the 
following  manner.  The  z  derivative  terms  in  F  are 


differenced  in  the  opposite  direction  to  that  used  for 


&F 


3z 


while  the  r  derivatives  are  approximated  with  central 
differences.  Likewise,  the  r  derivative  terms  appearing  in 


G  are  differenced  in  the  opposite  direction  to  that  used  for 


dr 


,  while  the  cross-derivative  terms  in  G  are  approximated 


with  central  differences.  For  example,  consider  the 
following  term  in  F  which  corresponds  to  the  z-raomentum 
equation 


F3  =  pm  -  u 


du 


(5.3) 

or  ez 

In  the  predictor  step,  given  by  Equation  (5.1),  the  term  is 
differenced  as 
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(5.4) 


while  in  the  corrector  step,  given  by  Equation  (5.^;,  the 
term  is  differenced  as 


(F, 
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Because  of  the  complexity  of  the  compressible 
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Navier-Stokes  equations,  as  yet,  it  has  not  been  possible  to 
obtain  a  closed-form  stability  expression  for  the  MacCormack 
scheme  applied  to  these  equations;  however,  the  following 
empirical  formula  can  normally  be  used 


At  s  <*(4t)CFL  (5.6) 

where  a  is  a  safety  factor  (  £  S.9),  {4t)CFL  is  the 
inviscid  CFL  condition 
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and  c  is  the  local  speed  of  sound 
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Before  each  Iteration  the  time  step  can  be  computed  for  each 
grid  point  using  Equation  (5.6).  The  smallest  of  these  time 
steps  is  then  used  to  advance  the  solution  over  the  entire 
mesh. 


After  each  predictor  and  corrector  step,  the  primitive 
variables  ( p  ,  u,  v,  e,  p,  T)  are  found  by  decoding  the  U 
vector 
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in  the  following  manner 
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For  both  the  predictor  and  corrector  sweeps,  artifical 
damping  (a  numerical  smoothing  term)  was  calculated  and 
added  to  the  problem  variables.  This  damping  was  necessary 
to  ensure  a  stable  solution.  The  technique  used  for 
determining  the  amount  of  damping  was  that  presented  by 
MacCormack  and  Baldwin  (54).  The  method  uses  a  damping  term 
that  is  proportional  to  the  second  derivative  of  pressure 
and  is  of  significant  magnitude  only  in  regions  of  pressure 
oscillation,  where  truncation  error  is  already  adversely 
affecting  calculation. 

Computer  Code 

Figure  5.1  is  a  flow  chart  of  the  computer  code  used. 
The  code  was  written  by  Dr.  Joe  Shang  of  the  Flight  Dynamics 
Laboratory,  Wright  Patterson  Air  Force  Base.  Appendix  A 
contains  a  listing  of  the  code. 
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defir.a  constants 
and  parameters 
4 

read  flow  data 
and  control  variables 

4 

calculate  remaining 
flow  variables 

4 

initialize  flow  field 
SUBROUTINE  PREAMB 
4 

read  physical  grid's 
coordinates 


old  problem  new  problem 
XA 

read  flow  data  from 
earlier  problem 

4 

transform  physical  grid' 
to  computational  grid 

4 

find  time  step 
to  be  used 

4 


IMPLEMENT  EXPLICIT 
MacCORMACK  METHOD 

_>  predictor  sweep 

4 

corrector  sweep 
l 

re-calculate  time  step 
and  eddy  viscosity 
(every  10th  iteration) 


- 4  :  1 

print  results 

save  flow  data  and  grid  for  later  use 


Figure  5.1  Program  Flow  Chart 


-  72 


Physical  Grid 

Initially.-  the  grids  nred  took,  advantage  of  early  heat- 
pipe  vapor  flow  solutions  by  clustering  grid  points  into 
areas  where  large  gradients  were  expected,  numerical 
experiments  were  performed  to  compare  the  grid  with 
clustering  to  a  uniform  grid.  The  non-uniform  grid  had 
round  off  errors  larger  then  those  found  with  the  uniform- 
grid  by  four  orders  of  magnitude.  The  uniform-grid 
solutions  seemed  to  give  more  stable  results  despite  the 
coarse  grid  in  the  regions  of  large  gradients.  The  grid 
used  for  most  of  the  calculations  had  uniform  spacing  with 
96  axial  grid  points  and  £5  radial  grid  points. 
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VI.  Numerical  Results 


The  results  of  the  numerical  simulation  will  be 
discussed  in  this  chapter.  First,  there  will  be  a 
discussion  of  the  solution  to  the  unsteady  problem. 

Secondly,  the  steady-state  solutions  obtained  will  be 
compared  with  the  experimental  results.  The  numerical 
results  were  used  to  estimate  friction  coefficients  that  can 
be  used  in  one  dimensional  models.  The  third  section  of 
this  chapter  will  describe  how  this  was  done  and  present  the 
results  obtained.  The  chapter  will  be  concluded  with  a 
discussion  of  the  applicability  cf  boundary-layer 
assumptions  to  heat-pipe  vapor  flow  problems. 


Transient  Results 

One  of  the  original  objectives  of  this  research  was  to 
better  understand  the  transient  vapor  dynamics  of  a  heat 
pipe.  The  heat-pipe  transient  modeled  was  equivalent  to  an 
instantaneous  lowering  of  the  condenser  environment 
temperature  while  maintaining  the  evaporator  environment 
temperature  at  a  constant  value.  Because  the  experimental 
results  were  for  a  porous  pipe  wish  air  injected  or 
extracted  through  its  wall,  the  actual  transient  modeled 
consisted  of  instantaneously  lowering  the  condenser's 
external  manifold  pressure  while  maintaining  the 
evaporator's  external  manifold  pressure  constant.  The 
transient  modeled  would  be  equivalent  to  the  heat-pipe 
transient  described  if  the  heat-pipe  wall  had  no  thermal 
capacitance  and  thus  provides  a  "worst-case"  situation. 
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Figures  6.1  and  6.2  represent  the  pressure  response  to 
the  transient.  The  pressures  at  three  locations  in  the  pipe 
are  plotted  during  the  transient.  The  three  locations  are 
1)  the  evaporator  end  of  the  pipe,  2)  the  centsr  of  the 
pipe,  i.e.,  the  evaporator-condenser  junction,  and  3)  the 
condenser  end  of  the  pipe.  All  three  points  were  on  the 
pipe's  center  line. 

As  the  transient  began,  mass  was  removed  from  the 
condenser  end  of  the  pipe  along  the  entire  region.  This 
caused  a  drop  in  the  condenser  pressure.  As  the  condenser's 
external  pressure  dropped,  an  expansion  wave  moved  radially 
from  the  wall  to  the  pipe's  center  line.  Upon  reaching  the 
center  of  the  pipe,  the  expansion  wave  reflected  as  a 
compression  wave.  Upon  reaching  the  outside  wall,  the 
compression  wave  reflected  off  the  pipe  wall  as  an  inward 
moving  expansion  wave.  These  radially  moving  compression 
and  expansion  waves  can  be  seen  for  quite  some  time  in  the 
two  lower  pressure  plots.  They  are  seen  superimposed  on  the 
overall  condenser  pressure  drop.  More  important  than  the 
radially  moving  waves  are  those  that  move  axially  in  the 
pipe.  Shortly  after  the  trar  ient  began,  a  series  of 
expansion  waves  began  moving  from  the  condenser  region 
toward  the  evaporator.  Also,  a  compression  wave  began 
traveling  from  the  downstream  end  of  the  evaporator  into  the 
condenser.  From  Figure  6.2,  it  can  be  seen  that  when  the 
different  waves  reached  the  ends  of  the  pipe,  the  evaporator 
end  pressure  began  to  drop  and  the  condenser  end  pressure 
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stopped  falling  and  began  to  rise.  As  can  be  seen  from 
Figure  6.2,  the  pressure  waves  eventually  diminish  and 
steady  state  was  reached.  A  check  was  performed  to 
determine  if  the  tire  for  the  expansion  and  compression 
waves  to  move  the  length  of  the  pipe,  as  predicted  by  the 
numerical  results,  was  realistic.  Assuming  the  axial 
expansion  wave  was  moving  at  sonic  velocity,  it  should  reach 
the  evaporator  end  of  the  pipe  about  0.9  ms  after  the 
transient  began.  This  corresponds  well  with  the  results 
shown  in  Figure  6.2. 

Figures  6.3  and  6.4  are  velocity  plots  for  different 
instants  in  time  during  the  transient.  They  show  how  the 
expansion  and  compression  waves  affect  the  velocity  field  in 
the  pipe.  The  times  on  Figures  6.3  and  6.4,  A  to  C, 
correlate  with  the  time  scales  in  Figures  6.1  and  6.2. 

Figure  6.3A  is  an  expanded  view  of  the  condenser.  Most  of 
the  fluid  motion  is  radially  out  of  the  condenser.  The 
expansion  wave  from  the  evaporator  has  moved  about  1/7  of 
the  way  into  the  condenser.  The  resulting  flow  from  the 
evaporator  into  the  condenser  can  be  seen  in  the  figure.  In 
Figure  6.3B  the  expansion  wave  has  moved  twice  as  far  into 
the  condenser.  The  fluid  is  still  stationary  in  the 
upstream  end  of  the  evaporator.  The  blank  region  in  Figure 
6.3B  corresponds  to  stagnant  flow.  In  Figure  6.3C  the  axial 
expansion  and  compression  waves  have  still  not  reached  the 
pipe  ends.  At  the  end  of  the  condenser,  the  radial  flow  can 
be  seen  to  split  and  move  both  inward  and  outward.  This  may 
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Figure  6.4  Velocity  Fields 
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be  due  to  the  radial  expansion  and  compression  waves  that 
are  still  dominant  in  this  region.  In  Figure  6.4 A  the  axial 
expansion  and  compression  waves  have  reached  the  ends  of  the 
pipe.  It  is  interesting  to  note  that  at  this  time  the  mass 
moving  from  the  evaporator  into  the  condenser  is  not  all 
leaving  the  condenser  through  the  wall.  Some  of  the  mass 
stays  in  the  condenser,  helping  to  raise  the  condenser 
pressure  to  its  steady-state  distribution.  In  Figure  6.4B 
the  flow  can  be  seen  to  continue  to  develop.  In  Figure  6.4C 
steady-state  flow  is  almost  reached.  It  is  interesting  to 
contrast  the  radial  variations  in  velocity  between  Figure 
6.4C  and  Figure  6.4B.  At  the  later  times,  the  velocity 
profiles  are  approaching  more  of  an  internal  pipe  flow 
profile  which  has  a  definite  boundary  layer  region.  Earlier 
in  the  transient  (Figures  6. 4 A  and  6.4B)  the  velocity 
profiles  are  very  flat. 

From  Figure  6.2  it  can  be  seen  that  after  about  3.2  ms, 
the  vapov  transient  has  almost  reached  the  steady-state 
value.  This  time  is  much  faster  than  the  time  for  a 
heat-pipe  wall  to  respond  to  a  transient.  For  example,  a 
1/32  inch  thick  sheet  of  copper  with  a  convection  heat 
transfer  coefficient  of  1000  Btu/hr-ft2-F  has  a 
characteristic  response  time  on  the  order  of  0.24  seconds 
(assuming  a  lump  parameter  model).  As  a  result  of  the 
difference  between  the  response  times  of  the  vapor  and  the 
wall,  the  vapor  is  essentially  always  in  steady  state  when 
compared  to  the  wall.  Thus,  we  may  infer  that  for  most 
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numerical  heat-pipe  models,  it  is  a  good  assumption  to  use  a 
steady  heat-pipe  vapor  model  in  conjunction  with  a  transient 
heat-pipe  wall  model. 


Steady-State  Solution 


The  experimental  part  of  this  research  consisted  of 
measuring  steady-state  spatial  pressure  and  velocity 
variations  in  a  simulated  heat-pipe  vapor  region.  This 
section  will  compare  the  steady-state  numerical  results  to 
the  experimental  measurements.  First  the  pressure  data  and 
then  the  velocity  data  will  be  compared. 

Pressure  Profiles .  Figure  6.5  contains  the 
numerically-determined  pressures  and  the 
experimentally-measured  pressures  for  three  cases.  The 
numerical  simulations  (solid  lines)  closely  matched  the 
experimental  results.  The  maximum  Mach  numbers  obtained  in 
the  flow  fields  for  the  three  cases  were  0.175,  0.635,  and 
1.70.  For  all  three  cases  axial  pressure  drops  where 
observed  as  the  flow  accelerated  in  the  evaporator  region 
due  to  mass  injection  at  the  wall.  For  the  two  subsonic 
cases,  the  pressure  rose  as  it  decelerated  in  the  condenser 
due  to  mass  removal.  In  the  supersonic  case,  mass  removal 
caused  a  further  acceleration  of  the  air  in  the  condenser 
until  a  normal  shock  was  encountered.  Bystrov  and  Popov 
(22)  reported  observing  a  similar  phenomena  by  infering  the 
presence  of  the  shock  from  temperature  measurements  on  the 
inside  of  a  sodium  heat  pipe.  After  the  shock,  the  pressure 
increased  as  the  flow  slowed  down.  The  total  frictional 
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pressure  loss  is  the  difference  between  the  pressures  at  the 
upstream  end  and  down  stream  end  of  the  pipe.  If  no 
friction  was  present,  rotr.l  pressure  recovery  would  occur 
and  the  two  end  pressures  would  have  been  equal  (c.f. 

Chapter  II).  It  can  be  seen  from  Figure  6.5  that  the  amount 
of  friction  increases  with  flow  rate  (or  Mach  number). 

From  the  experimental  data,  for  the  low  mass  flow  rate 
cases  studied,  the  evaporator  and  condenser  manifold 
pressures  were  uniform  over  the  exterior  of  the  porous  pipe. 
As  the  mass  flow  rate  increased,  however,  the  flow 
resistance  into  the  different  chambers  caused  an  axial 
variation  in  the  manifold  pressures.  For  example,  in  the 
evaporator  manifold  the  pressure  would  decrease  from  the 
upstream  end  of  the  pipe  to  the  center  of  the  pipe,  the 
evaporator /condenser  junction.  This  was  because  more  flow 
was  trying  to  go  through  the  porous  pipe  near  the  downstream 
end  of  the  evaporator  where  there  was  a  lower  internal 
pressure.  The  higher  flow  rates  through  the  camber  valving 
(c.f.  Figure  2.2)  caused  a  larger  p  assure  drop  and  thus  a 
lower  manifold  presssure  on  the  porous  pipe.  This  same 
phenomenon  was  noticed  in  the  condenser  manifold.  There  the 
pressure  would  increase  from  the  entrance  of  the  condenser 
to  the  end  of  the  condenser.  To  obtain  accurate  internal 
pressure  variations,  the  experimentally  measured  external 
pressure  distribution  had  to  be  used  as  a  boundary 
condition. 

Velocity  Profiles.  Figure  6.6  illustrates  a  sample  of 
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Radial  Location  r/R 


Figure  6.6  Numerical  and  Experimental  Velocity  Data 


the  velocity  results  obtained.  The  three  radial  variations 
in  the  axial  velocities  shown  are  for  three  different  axial 
positions  along  the  pipe.  The  middle  line  is  for  the 
location  X/L  =  0.29  or  about  halfway  down  the  evaporator. 

The  upper  most  line  is  for  the  location  X/L  =  0.56  or 
slightly  down  stream  from  the  evaporator /condenser  junction. 
The  lower  curve  is  for  X/L  =  0.89  or  near  the  down-stream 
end  of  the  condenser.  The  agreement  between  the  numerical 
and  experimental  results  is  good.  The  numerical  results 
were  best  for  the  evaporator  region.  In  the  condenser,  the 
turbulence  and  mass  extraction  at  the  wall  cause  a  very  flat 
velocity  profile  in  the  center  of  the  pipe  with  a  sharp 
velocity  gradient  at  the  wall.  Because  of  the  relative 
coarseness  of  the  numerical  grid,  the  sharp  velocity 
gradient  along  the  condenser  wall  could  not  be  resolved  as 
well  as  it  was  in  the  evaporator. 

Numerical  studies  indicated  that  by  increasing  the 
number  of  radial  grid  points,  the  condenser  velocity  profile 
could  be  more  accurately  predicted.  The  problem  with 
doubling  the  number  of  grid  points  was  that  four  times  as 
much  computer  time  was  needed  to  obtain  a  solution.  To 
obtain  the  quality  of  results  sought  for  this  work,  25 
radial  grid  points  gave  sufficient  results  without  requiring 
excessive  computer  time. 

Figure  6.7  illustrates  how  the  radial  velocity  varies 
throughout  the  flow  field  for  a  maximum  Mach  number  of 
0.635.  It  is  interesting  to  note  that  the  maximum  or 
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Figure  6.7  Radial  Velocity  Contour  Plot 


I 


minimum  radial  velocity  at  a  given  axial  location  doesn't 


always  occur  at  the  pipe  wall  as  might  be  expected.  As  the 


fluid  moves  radially  toward  the  center  of  the  pipe  in  the 


evaporator,  the  radial  mass  flow  rate  must  decrease. 


becoming  zero  at  the  pipe  center.  It  is  believed  that  near 


the  pipe  wall  the  flow  area  decreases  faster  than  the  the 


mass  flow  rate.  This  causes  the  radial  velocity  to  increase 


for  a  short  distance.  The  abnormal  behavior  noticed  in  the 


condenser  region  is  due  to  transient  effects  that  were  still 


present  when  the  data  in  Figure  6.7  was  obtained. 


Friction  Coefficients 


Once  the  numerical  solutions  were  shown  to  be  valid. 


they  were  used  to  predict  friction  coefficients  that  could 


be  used  in  simpler,  one  dimensional  models.  The  friction 


coefficient  found  is  defined  by  the  equation 


♦  _  2rw 
~  pU2 


(6.1) 


where  rw  is  the  shear  stress  at  the  pipe  wall,  ~p  is  the 


average  density  and  U  is  the  average  velocity.  This  rection 


of  chapter  VI  will  describe  how  the  friction  coefficients 


were  calculated.  Also,  useful  functional  representations  of 


the  data  will  be  presented. 


Method  of  Calculation.  Two  methods  were  used  to 


approximate  the  friction  coefficient  defined  by  Equation 


(6.1).  The  two  methods  used  different  techniques  for 


finding  the  wall  shear  stress.  The  most  straightforward 


method  approximated  the  shear  stress  at  the  wall  with  the 
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finite  difference  formula 

j  _  _ yi  ^  3u.j  4ug  *4*  U3  (6.2) 

dr  r.p  24 r 

where  u1 ,  u2  ,  and  u3  were  axial  velocities  at  the  pipe  wall, 
one  grid  point  from  the  wall  and  two  grid  points  from  the 
wall,  respectively.  This  method  worked  best  for  the 
evaporator  region  where  the  experimental  and  numerical 
velocity  profiles  matched  the  closest.  In  the  condenser, 
this  method  was  suspected  of  underestimating  the  shear 
stress  because  of  the  error  in  the  numerical  velocity 
gradient  results  near  the  pipe  wall. 

In  the  second  method,  the  shear  stress  at  the  pipe  wall 
was  approximated  using  a  force  balance  on  an  element  of 
fluid  in  the  pipe.  Figure  6.8  shows  a  typical  fluid  element 
studied. 


Figure  6.8  Element  of  Fluid  Used  For  Force  Balance 
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The  force  balance  took  the  form 


Time  Rate 
of  change 
of  Momentum 
in  the 
Element 


Rate  of 
Flow  of 
Momentum 
into  the 
Element 


Rate  of 
Flow  of 
Momentum  + 
out  of  the 
Element 


Symbolically  this  can  be  written  as 


Sum  of  the 
Forces  on 
the  Element 


-  *-/«,|rdr  -  a*/.«*|rdr  +  2,/p"  rdr  <<>s) 


“2 


k+irdr  ~  rw2^R4x 


1  9M 
** R4x  at 


(6.4) 


The  wall  shear  stress  in  Equation  (6.4)  was  found  by 
numerically  integrating  the  pressure  and  velocity  results 
from  the  numerical  simulation.  Simpson's  rule  was  used  for 
the  numerical  integration. 

When  calculating  the  friction  coefficient,  the  momentum 
balance  was  used  for  the  condenser  region  and  the  velocity 
gradient  method  was  used  for  the  evaporator.  Figure  6.9 
compares  the  two  methods  for  calculating  friction 
coefficient. 

A  great  deal  of  time  was  spent  studying  and  comparing 
the  two  methods  of  finding  the  friction  coefficient. 

Several  factors  led  to  using  a  combination  of  methods.  From 
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Figure  6.9  Comparison  of  Friction  Calculation 
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the  studies,  it  was  found  that  either  method  could  have  been 
used  in  the  evaporator  region.  If  the  numerical  results 
used  to  calculate  the  friction  were  sufficiently  steady 
(close  to  a  steady-state  solution),  both  methods  gave  the 
same  result.  Because  the  velocity  gradient  method  was  less 
adversely  effected  by  small  non-steady  terms,  that  method 
was  used  for  calculations  in  the  evaporator  region.  This 
resulted  in  a  large  savings  in  computer  time  because  only  a 
near  steady-state  solution  was  required. 

The  two  different  methods  predicted  results  that  varied 
by  about  a  factor  of  10  in  the  condenser  region.  It  was 
felt  that  the  coarse  numerical  grid  (25  radial  nodes)  gave 
inaccurate  near-wall  velocity  results  in  the  condenser. 

This  led  to  an  under  estimation  of  the  shear  stress  when  the 
velocity  gradient  method  was  used.  Finer  grid  systems  were 
studied.  As  more  grid  points  were  clustered  near  the  wall, 
the  velocity  gradient  method  results  converged  toward  the 
momentum  method  results.  In  another  study,  an  overall  force 
balance  was  performed  on  the  control  volume  containing  the 
vapor  region.  The  integral  of  the  wall  shear  stress  along 
the  pipe  was  compared  to  the  pressure  drop  between  the  two 
pipes  ends.  The  velocity  gradient  method  under-predicted 
the  pressure  drop  (over  95%  error)  indicating  that 
Insufficient  friction  was  being  estimated  along  the  pipe. 

The  momentum  method  accurately  predicted  fche  pressure  drop 
(less  that  0.1%  error).  This,  along  with  the  grid  study, 
stengthened  the  selection  of  the  momentum  balance  method  for 
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finding  friction  coefficients  in  the  evaporator.  As  will  be 
seen  later,  the  large  friction  coefficient  values  predicted 
by  the  momentum  method  compare  favorably  with  research  done 
by  others  in  this  area.  It  will  also  be  shown  that  they  are 
needed  if  accurate  results  are  to  be  obtained  from 
one-dimensional  models  (c.f.  Chapter  VII). 

Functional  Dependence.  Before  presenting  the  results 
of  the  friction  coefficient  calculations,  the  motivation  for 
selecting  the  variables  used  in  representing  the  functional 
form  of  the  friction  coefficient  data  will  be  discussed. 

The  equations  to  be  studied  are  Equations  (4.2)  through 
(4.13)  developed  in  Chapter  IV.  The  dimensionless  variables 
chosen  were: 


Z+  =? 

z 

R 

r+  = 

r 

R 

<+ 

fl 

V 

V0 

p+  = 

P 

Po 

T»+ 

T 

+ 

T 

T  ^ 

To 

e  = 

To 

u+_  _y_. 
U 


v'  6 . 5 ) 


PoV0U 


where  U  =  a  local  mean  axial  velocity,  R  is  the  pipe  radius, 
Vo  is  the  local  blowing  or  suction  velocity  at  the  pipe  wall 
and  p0 is  the  local  fluid  density  at  the  pipe  wall.  After 
substituting  these  dimensionless  variables  into  Equations 
(4.2)  through  (4.13),  the  dimensionless  continuity, 
momentum,  and  energy  equations  shown  below  resulted. 
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From  these  equations  it  can  be  seen  that  in  general 


U+  =  u+  (  z+,  r+,  Re,  Rew,  Ma,  Pr ) 


(S.7) 


By  non-dimens ionalizing  and  combining  Equations  (6.1)  and 
(6.2)  it  can  be  shown  that 


3u+ 


,  X  Re  =  -  4^ 


r«i 


(6.8) 


thus  in  general 


♦  “  f  (z\  Re,  Rew,  Ma,  Pr  ) 


(6.9) 


>$■ 
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Upon  examining  the  friction  coefficient  results  that  follow, 
one  of  the  tasks  was  establishing  the  functional 
relationship  between  f  and  the  five  dimensionless  groups 
shown  in  Equation  (6.9).  This  was  simplified  by  studying 
the  results  of  earlier  researchers.  First,  because  all  of 
the  cases  studied  in  this  work,  used  air  as  a  working  fluid, 
the  Prandtl  number  could-  be  assumed  to  be  nearly  constant. 
Thus,  no  friction  coefficient  dependence  on  Prandtl  number 
was  expected.  Kinney  (6)  has  shown  that  in  the  evaporator, 
the  friction  coefficient  becomes  independent  of  the  radial' 
Reynolds  number  at  large  values  of  blowing.  Because  this 
work  was  done  at  very  high  values  of  blowing,  Kinney's 
assumption  applies  here  also.  The  last  assumption  that  was 
used  in  developing  the  functional  relationship  for  friction 
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coefficient  was  that  in  the  evaporator  the  friction 
coefficient  was  inversly  proportional  to  the  axial  Reynolds 
number.  Kinney  (5)  showed  that  this  is  also  true  for 
laminar  flow  in  pipes  with  blowing 

Results.  Eleven  numerical  simulations  were  run  using 
the  two-dimensional  Navier -Stokes  code.  For  the  different 
simulations,  aspect  ratios  varying  from  L/D  =  12  to  L/D  =  96 
were  modeled.  Also  the  maximum  flow  velocity  in  the  systems 
was  varied  from  a  Mach  number  of  0.1  to  1.0.  The  flow 
fields  generated  hy  the  numerical  simulation  were  used  to 
estimate  the  friction  coefficient  as  described  above. 

Figure  6.10  is  a  plot  of  friction  coefficient  versus  axial 
Reynolds  number.  The  raw  data  is  included  as  Appendix  C. 

The  results  in  Figure  6.10  can  be  divided  into  three 
regions.  Region  1  is  the  lower  clustering  of  points.  These 
points  represent  the  friction  coefficients  predicted  in  the 
evaporator  region.  Region  3  of  the  data  is  most  of  the 
upper  clustering  of  points.  These  data  points  represent  the 
friction  coefficients  in  the  fully-developed  turbulent  flow 
region  in  the  condenser.  The  Region  2  data  is  the  friction 
coeffcient  data  where  the  flow  is  transitioning  from  laminar 
to  turbulent  in  the  condenser  inlet  region.  In  Region  2  the 
friction  coefficient  data  is  independent  of  axial  Reynolds 
number.  This  is  because  the  high-axial-Reynolds-number 
(much  higher  than  2000)  laminar  flow  entering  the  condenser 
quickly  transitions  to  turbulent  flow. 

Tuan  and  Finkelsteln  (14)  and  Kinney  (6)  were  the  first 
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to  study  lam)  *,  incompressible  flow  in  pipes  with  blowing. 
They  showed  that  blowing  caused  a  slight  steepening  in  the 
velocity  gradients  at  the  pipe  wall,  whicn  resulted  in  an 
increase  in  frict’.on  coefficient.  Their  results  can  be 
represented  using  the  expression 


f  x  Re  =  16  (l.  2337  —  0.2337  e0,0363Rewj  (6.10) 


where  Re*  is  the  radial  Reynolds  number  defined  as 

! 

| 

|  Re  —  ^°VoD  (6,11) 

I  W  U 


The  data  in  Region  1  of  Figure  6.10  very  closely  matches  the 
expression  predicted  by  Kinney.  The  only  variation  is  tor 
large  Mach  numbers.  For  large  Mach  numbers,  a 
compressibility  affect  needs  to  be  included  in  the  friction 
model  that  accounts  for  a  rise  in  friction  coefficient  with 
Mach  number.  Figure  6,11  show  how  the  friction  coefficient 
in  the  evaporator  region  varies  with  Mach  number.  The  least 
squares  representation  of  the  data  including  the 
compressibility  affect  is 


f  x  Re  s  16  (1.2337  - 


0.2337  e0  03e3R»w 


e 


6M»2 

5 


(6.12) 


where  Ma  is  the  Mach  number  based  on  the  local  mean 
velocity. 

The  data  in  Region  3  of  Figure  6.10  were  studied  to 
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find  a  convenient  way  of  representing  them  functionally. 
The  compressible  effects  were  assumed  to  be  the  same  as  in 
the  evaporator.  The  friction  data  in  the  condenser  can  be 
functionally  represented  as 


<  =  C[>  +  55  Re01  ($“ J 


(6.13) 


0.046 
Re  H 


(6.14) 


where  Lc  is  the  length  of  the  condenser.  This  expression 
predicts  the  friction  coefficient  for  fully-developed 
turbulent  flow  in  a  pipe  with  suction  at  the  pipe  wall. 
Figure  6.12  is  a  graph  of  the  friction  coefficient 
calculated  using  Equations  (6.13)  and  (6.14)  compared  with 
the  friction  coefficient  found  from  the  numerical  experiment 
described  above. 

The  Region  2  numerical  data  represents  friction 
coefficients  for  the  region  where  the  flow  is  transitioning 
from  laminar  to  turbulent  and  from  a  region  of  blowing  to  a 
region  of  suction.  This  type  of  behavior  has  been  modeled 
by  Dhawan  and  Narasimha  (52).  Equation  (6.15)  is  a  modified 
form  of  their  expression  which  closely  models  the  friction 
coefficient  in  the  condenser  entrance  region. 


Xt|<  x  <  XM  (6.15) 
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and  f£  is  the  friction  coefficient  at  the  entrance  to  the 
condenser  and  fT  is  the  fully-developed,  suction,  friction 
coefficient  (Equation  (6.13)).  The  other  values  shown  in 
Equation  (6.15)  were  defined  in  the  last  section  of  Chapter 
IV  and  relate  to  the  location  and  width  of  the  transition 
region. 

Comparison  With  Other  Results.  As  mentioned  earlier 
the  friction  coefficient  expression  found  for  the  laminar, 
evaporator  section  of  the  pipe  has  also  been  reported  by 
other  authors.  The  first  to  develop  such  an  expression  were 
Yuan  and  Finkelstein  in  1956  (14).  They  predicted  that  as 
mass  injection  increased,  the  friction  coefficient  would 
increase  from  the  non-blowing  friction  coefficient.  They 
showed  that  for  laminar  incompressible  flow  with  large 
blowing  rates  the  friction  coefficient  would  approach 


»  =  111 

Re 


(6.16) 


As  was  shown  earlier  this  agrees  very  favorably  with  the 
results  found  by  this  research  for  small  Mach  numbers. 

Aggarwall,  et.  al.  (29)  studied  the  effect  of 
extraction  on  friction  coefficients  in  porous  pipes.  In 
their  experiments,  the  pipe  inlet  axial  Reynolds  numbers 
varied  from  11,000  to  101,000.  Their  experimental  results 
for  axial  Reynolds  number  equal  to  80,000  are  compared  with 
the  results  of  this  research  in  Figure  6.13. 

Another  comparison  can  be  made.  Kinney  and  Sparrow 
(41)  analytically  studied  the  effect  of  suction  on  turbulent 
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Figure  6.13  Comparison  With  Other  Models 


flow  in  a  pipe.  Their  results  are  also  shown  in  Figure 
6.13.  They  limited  their  work,  to  axial  Reynolds  numbers 
varying  from  10,000  to  150,000  and  blowing  parameters  co 
0.02. 

The  data  used  to  develop  the  model  presented  in  this 
paper  was  for  axial  Reynolds  numbers  between  20,000  and 
2,300,000  and  for  blowing  parameters  between  0.015  and  2.0. 
This  represents  both  larger  blowing  parameters  and  axial 
Reynolds  numbers  than  studied  by  Aggarwal  or  Kinney. 

The  difference  in  the  three  sets  of  results,  in  the 
region  where  they  overlap,  is  due  to  different  models  used 
for  finding  the  non-blowing  turbulent  friction  coefficient. 
Aggarawal  et.  al.  were  studying  a  rough  pipe  and  thus  used 
the  Colebrook-White  semi -empirical  relation 


JL  =  3.48-4log(4  +  ) 

\  R  ~  Re  f  V2  / 


taking  the  roughness  parameter  k/R  3  0.0013. 
Sparrow  used  the  Blausius  friction  law. 


(6.17) 
Kinney  and 


,  0.079 

f  ” Re^"  5,000  <  Re  <  30.000  (6.18) 

This  research  used  the  high-axial-Reynolds-number, 
turbulent,  non-blowing  friction  coefficient  expression 

*•  _  0.046 

Re  H  30,000  <  Re  <  1,000,000  (6,19) 

Momentum-Flux  Factor .  When  a  one -dimensional  approach 


is  used  to  solve  a  flow  problem,  the  axial  momentum  at  a 
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given  location,  k,  is  calculated  using  the  expression 


M  =  A?U2L 


(6.20) 


In  reality,  the  axial  momentum  is 


=  J pyx* 


(6.21) 


The  ratio  of  -rj —  will  be  defined  as  the  momentum  flux 
Mr 

factor.  In  equation  form,  the  momentum  flux  factor  (  <f>  1  is 
defined  as 


_  pu2 


(6.22) 
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The  momentum  flux  factor  is  useful  in  understanding  the 
shape  of  the  velocity  profile  in  a  pipe.  For  example, 
Poiseuille  flow  in  a  pipe  has  a  momentum  flux  factor  of 
1.33.  The  flatter  the  velocity  profile,  the  smaller  the 
momentum  flux  factor.  Slug  flow  has  a  value  of  1.0.  Below 
will  be  a  brief  discussion  of  how  suction,  blowing  and 
compressibility  effects  influence  the  momentum  flux  factor 
for  flow  in  porous  pipes. 

Figures  6.14  and  6.15  will  be  used  throughout  the 
discussion.  They  are  graphs  of  momentum  flux  factor  versus 
Mach  number.  Figure  6.14  compares  three  cases  where  the 
pipe  aspect  ratio  was  constant;  however,  the  rate  of 
injection  and  extraction  varied.  Figure  6.15  compares  three 
cases  with  approximatly  the  same  maximum  axial  Reynolds 
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Aspect  Ratio  is  12  for  all  three  cases  shown 

Maximum  Axial  Reynolds  Number: 

Re  =  2.9x10^ 

/Re  =  5.7x10^ 

'/Re  =  11.4x10'’ 


Mil'll  tW 


i  Flux  Factor  Versus  Mach  Number 
Aspect  Ratio) 


ftvxvwfvt  snur*  ynwj nur*  imv^ 


number  but  with  varing  pipe  aspect  ratios. 

Several  general  trends  can  be  seen.  Laminar, 
incompressible  flow  with  large  blowing  rates  produces  flow 
with  a  momentum  flux  factor  of  1.2337.  This  was  also 
observed  by  Yuan  and  Finkelstein  (14).  As  the  Mach  number 
increases  in  the  laminar  evaporator  flow,  the  momentum  flux 
factor  decreases  as  a  result  of  the  flattening  of  the 
velocity  profile.  As  was  observed  earlier,  the  flatter 
velocity  profile  corresponds  to  larger  friction  coefficient 
values  which  were  seen  at  higher  Mach  numbers  in  the 
evaporator . 

As  the  flow  enters  the  condenser  (a  region  with 
suction)  and  the  flow  transitions  to  turbulent  flow,  the 
velocity  profiles  become  even  flatter  (smaller  momentum  flux 
factors).  The  very  flat  velocity  profiles  in  the  condenser 
correspond  to  large  friction  coefficients.  From  Figure  6.15 
it  is  interesting  to  note  the  effect  of  pipe  diameter  on  the 
shape  of  the  velocity  profiles.  As  the  aspect  ratio 
increases  (small  diameter  pipe)  flatter  velocity  profiles 
result.  At  the  end  on  the  condenser,  the  velocity  profile 
becomes  less  flat  due  to  pipe-end  effects.  For  the  large 
diameter  pipe,  flow  reversal  was  seen  at  the  end  of  the 
condenser.  These  effects  result  in  very  large  values  of 
momentum  flux  factor  at  the  pipe  ends. 


Term  Size 

To  date,  there  has  been  disagreement  as  to  when  the 
full  Navier-Stokes  equations  need  to  be  used  and  when 
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Prandtl's  boundary-layer  equations  will  yield  adequate  and 
less-expensive  solutions  to  heat-pipe  vapor-flow  problems 
(25),  (26).  This  section  of  Chapter  VI  will  describe  a 
study  that  was  performed  to  help  better  understand  this 
problem.  It  will  be  shown  that  for  short  (fat)  heat  pipes 
or  for  pipes  with  large  blowing  rates  the  boundary-layer 
assumptions  are  not  valid 

The  problem  was  addressed  by  first  solving  for  the 
vapor  flow  field  in  a  simulated  heat  pipe  using  the  full 
Navier-Stokes  solution  technique.  Once  the  solution  was 
obtained,  finite-difference  techniques  were  used  to 
approximate  the  size  of  the  different  terms  in  the 
continuity  and  momentum  equations.  To  save  computer 
storage,  only  the  absolute  value  of  the  largest  values 
calculated  for  each  term  were  saved.  Figure  6.16  is  a 
sample  of  the  results  obtained.  Figure  6.16  shows  5 
different  data  sets  corresponding  to  5  different  mass  flow 
rates  in  a  pipe  24  inches  long  and  2  inches  in  diameter 
(aspect  ratio  of  12).  The  terms  are  numbered.  The  numbers 
correspond  to  the  following  terras  in  the  continuity  and 
momentum  equations. 


6.23) 
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Figure  6.16  Comparison,  Term  Sizes  for  Different  Mass  Flows 
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dpv2 
3  r 


dpuv  __  _  dp 

dz  dr 


It  can  be  seen  from  Figure  6.16  that  for  increasing  axial 


Reynolds  numbers,  the  terms  increase  in  size. 


The  steady-state  boundary -layer  equations  in 


cylindrical  coordinates  are 


.  1  d  rpv 

a*  +  rTr~  = 


(6.24) 


+.  dp  Id  /rpdu\  (6.25) 

32  -  dz  +  Vj 


dp  _ 
dr 


(6.26) 


Thus,  the  boundary-layer  assumptions  assume  that  only  the 


terms  1,  2,  3,  10,  11,  and  13  in  Figure  6.16  should  be 


significant.  From  the  figure,  it  can  be  seen  that  terms  7, 


14,  and  15  from  the  radial  momentum  equation  are  not  small. 


To  gain  further  insight  into  the  problem  the 


Navier-Stokes  equations  were  non-dimensional ized.  The 


dimensionless  variables  chosen  are 


U  =  maximum  axial  velocity 


u  = 


V  *  average  suction  velocity 


v+  = 


L  =  pipe  length 


z+  = 


D  =  pipe  diameter 


r+  = 


(6.27) 


P0 =  source  air  density 


Aspect  Ratio 
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Blowing  parameter  = 


P  = 


U 


The  resulting  steady  continuity  and  momentum  equations  can 
be  abbreviated  as 


a^u+  |  br+j-j-  _  „ 


BP  U 

azH 


r  +  =  • 

i?(,Vy+2)  - 


^1?  + 


j£ 

2i* 


(6.28) 


(6.29) 


(6.30) 


The  blowing  parameter  and  the  aspect  ratio  were  related 
using  conservation  of  mass. 


Mass  flow  through 
the  wall 


or 


Mass  flow  at  the 
center  of  the  heat  pipe 


pffDLV 

2 


pit  D*U 
4 


(6.31) 


0'AR  =  0.5 


(6.32) 


From  Equation  (S.30)  it  can  be  seen  that  the  two  terms  in 

Of 

Equation  (6.30)  are  of  order  S'  end  This  means  that 

2 

for  large  blowing  rates  or  for  small  aspect  ratios,  the 
boundary-layer  assumptions,  which  ignore  these  terras,  are 
not  valid.  This  theory  was  tested  by  finding  how  the  term 
sizes  varied  for  different  pipe  aspect  ratios.  The  results 
of  the  study  are  illustrated  in  Figure  6.17.  In  Figure  6.17 
the  terms  in  question  are  normalized  with  respect  to  term 
#2,  the  axial  transport  of  axial  momentum  term.  It  can  be 
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Normalized  Term  Size 


seen  that  as  the  aspect  ratio  decreases  the  boundary-layer 
assumptions  become  less  valid.  In  studying  the  flow  fields 
for  the  small  aspect  ratio  cases  it  was  found  that  flow 
reversals  occurred  in  the  downstream  end  of  the  condenser 
(Figure  6.18A).  It  is  felt  that  the  ability  to  model  this 
behavior  is  lost  when  the  boundary-layer  assumptions  are 
made.  Figure  (6.18B)  is  a  contour  plot  that  shows  how  the 
normalized  term  #  7  varies  throughout  the  flow  field.  From 
Figure  6.18B  it  can  be  seen  that  the  boundary-layer 
assumptions  break  down  in  the  center  of  the  pipe,  between 
the  evaporator  and  the  condenser,  and  at  the  pipe  ends. 
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Figure  6.18  Velocity  Field  and  Term  Contour  Plots 


VII  One  Dimensional  Numerical  Model 


A  simplified  method  for  solving  the  simulated  heat-pipe 
vapor  flow  problem  is  described  in  this  chapter.  The 
chapter  is  divided  into  three  sections.  First,  the 
governing  equations  solved  are  presented.  Second,  the 
solution  technique  is  described.  Third,  the  results 
obtained  are  presented. 


Governing  Equations 


For  this  simplified  solution,  the  flow  was  assumed  to 
be  compressible,  one -dimensional,  adiabatic,  and  steady. 
The  form  of  equations  employing  influence  coefficients 
presented  by  Shapiro  (46)  was  used. 

dx 


dMa 


mF 


=  F.  4f 
•.»  D 


+  F, 


dm 


"».*  m 


(7.1) 


where  Ma  is  the  Mach  number,  and  the  two  influence 
coefficients  are  defined  as 

_  4 Ma  (  1  +  Ma  ) 

~  — — 


F-  =  2(1  * 

1-  M| 


(7.2) 

(7.3) 


m,a 


f  is  a  friction  coefficient  defined  early  by  Eq  (6.1).  7  is 

the  ratio  of  specific  heats,  x  is  the  axial  coordinate,  D  is 

the  hydraulic  diameter,  and  m  is  the  mass  flow  rate.  The 

rate  of  change  of  mass  flow  rate  is  dependent  on  the 

* 

pressure  difference  across  the  pipe  wall,  (Eq  4.33),  and  can 
vary  with  axial  location.  Eq  (7.1)  can  be  solved  exactly 
for  the  special  case  where  f  =  0  (no  friction)  References 


(20), (22).  The  frictionless  solution  is  presented  in 
Chapter  II,  Eqs  (2.1)  to  (2.4).  For  the  friction  solution, 
a  second  expression  was  needed  to  relate  the  change  in  total 
pressure  (Po)  to  the  change  in  mass  flow  rate  and  to  the 
friction  coefficient.  From  Shapiro  (46), 


where 


dPo 

Po 


=  Ft.b4* 


dx 


■+■  Fm,b 


dm 

m 


c  _  -V  MS 
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Other  useful  relations  are 


(7.4) 


(7.5) 

(7.6) 


© 


T.  _ 


1  +  2-5-1  Mf 


1  +  T"5-  . 


i-  =  f2sOi.l7=T 

LTbJ 

.  PJb 


PbTa 


(7.7) 


(7.8) 


(7.9) 


These  relate  properties  between  two  different  locations,  a 
and  b,  in  the  flow  field. 

Solution  Technique 

. 1  ■  1  1  ■  ■  1  I  i  <1  I  aMMiaOTB  * 

A  marching  technique  was  used  to  solve  for  the  flow 
properties  along  the  pipe.  Initial  properties  were  assumed 
at  the  upstream  end  of  the  pipe.  Eqs  (7.1)  and  (7.4)  were 
integrated  to  find  the  Hach  number  and  total  pressure  at 
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locations  along  the  pipe.  Once  the  Kach  number  and  total 
pressure  were  known,  Eqs  (7.7)  to  (7.9)  were  used  to  find 
the  temperature,  static  pressure,  and  density. 

A  predictor-corrector,  finite-difference  method  of 
marching  was  used  to  obtain  a  solution  or  Eqs  (7.1)  and 
(7.4).  First  the  influence  coefficients  were  predicted 
based  on  the  known  Mach  number  at  a  previous  solution 
location.  Also,  the  change  in  mass  flow  rate  between  two 
grid  points  was  predicted  using  Eq  (4.33)  with  the  pressure 
found  at  the  last  grid  point  and  an  external  manifold 
pressure  specified  in  the  problem  statement.  Defining  the 
grid  points  where  properties  were  known  with  the  subscript  k 
and  where  they  were  sought  by  the  subscript  k+1,  Eqs  (7.1) 
and  (7.4)  for  the  predictor  step  were 


Ma 


2 


k+*,p  Mak-f-exp 


+  F^,I„  In^ 


M-1.P 
"Ik  J 


Pokf1.p  =  Pok-H  exp  F  !k4fk4iL 


FA,'k'n(^)} 


(7.10) 


(7.11) 


The  corrector  step  in  the  solution  repeated  the  above 
operations  with  the  exception  that  the  mass  flow  rate  and 
the  influence  coefficients  were  re-calculated  based  on  the 
average  between  the  predicted  and  the  previously  known  Mach 
number  and  static  pressure 


Mar  = 

2 


(7.12) 
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Pr  =  Pk+  Pk+1  d 
k  2 


“*L  =“*2k+«p|Fi,.ir4*t 


D  T  m 


(7.13) 


(7.14) 


Po 


k+i  =  Pok+-  *xp 


!  +  Pm.blk  In  (~^~)|  (7. 


15) 


Difficulties  were  encountered  in  solving  the  problem 
near  Mach  numbers  of  one.  From  a  truncation  error  analysis, 

it  was  found  that  the  lowest  order  truncation  error  term  was 

4  x 

of  order  ^  __  *  Thus,  as  the  Mach  number  approached 

unity,  the  truncation  error  became  very  large.  To  solve 
this  problem,  Ax  was  decreased  faster  than  the  Mach  nur  ber 
approached  one.  The  expression 

4x=n[l-M|]2  <7-l6> 

where  n=0.010  was  used.  Even  though  the  truncation  error 
was  now  less  of  a  problem,  the  solution  time  increased 
rapidly  when  the  flow  velocity  approached  sonic  velocity. 

Another  difficulty  encountered  was  starting  the 
matching  technique.  At  the  first  grid  location,  the  Mach 
number  was  always  zero.  Using  zero  in  the  predictor  step  of 
the  solution  predicted  a  Mach  number  of  zero  at  the  second 
grid  point.  This  problem  was  overcome  by  assuming  the  flow 
was  incompressible  for  the  first  step  away  from  the  upstream 
wall.  This  gave  a  non-zero  Mach  number  at  the  second  grid 
point  that  was  used  successfully  to  continue  the  marching 
process  with  the  compressible  model. 
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One  more  aspect  of  the  solution  method  needs  to  be 
discussed  before  presenting  the  results.  A  starting 
internal  pressure  needed  to  be  guessed  to  be  used  in  finding 
the  amount  of  mass  injected  through  the  wall.  Prom  this 
pressure  subsequent  pressures  were  found.  The  total  mass 
injected  and  removed  in  the  evaporator  and  condenser  were 
determined  by  the  external  manifold  pressure  boundary 
conditions  specified  by  the  problem  statement  and  the 
internal  pressure  distribution  calculated  by  the  marching 
scheme.  If  the  starting  internal  pressure  was  quessed  high, 
a  problem  of  more  mass  removal  than  mass  injected  resulted. 
The  opposite  occurred  if  the  initial  pressure  was  guessed 
low.  An  iterative  method  was  used  to  refine  the  initial 
pressure  guess  until  the  mass  injected  equaled  the  mass 
removed.  The  computer  code  used  is  included  as  Appendix  C. 

Results 

During  all  of  the  numerical  simulations,  a  porous  pipe 
system  with  mass  injection  and  mass  removal  like  the  one 
used  for  the  two-dimensional  Navier-Stokes  solution 
technique  and  for  the  experimental  portion  of  the  research 
was  modeled. 

The  first  simulation  assumed  that  there  was  no  friction 
(f=0).  This  result  was  compared  to  the  exact  integration  of 
Eq  (7.1)  for  the  no  friction  assumption  and  to  the 
experimental  data  for  the  case  studied.  The  results  are 
shown  in  Figure  7.1.  The  two  frictionless  solutions  compare 
favorably  with  each  other;  however,  both  models  do  a  poor 


35  micro'.i  porous  pipe 
Aspect  'Ratio  =  37.5 
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job  of  matching  the  experimental  results,  especially  in  the 
condenser  region. 


The  second  study  conducted  assumed  that  the  friction 
coefficient  needed  in  Eq  (7.1)  was  the  same  as  that  used  for 
non-blowing  smooth  pipe  calculations.  In  the  evaporator, 
the  flew  was  assumed  to  be  laminar  or 


f.  = 


16 

Rey 


(7.17) 


In  most  of  the  condenser  the  flow  was  assumed  to  be 
turbulent  or 

_  0»0*6 
~  Re  V5 


(7.18) 


A  smooth  transition  from  the  laminar  region  tc  the  turbulent 
region  (Eq  (6.15))  was  used. 

Figure  7.2  compares  the  experimental  results  to  the 
smooth  pipe  friction  solution.  Adding  the  smooth  pipe 
friction  coefficients  only  slightly  improved  the  results. 

It  is  clear  that  larger  friction  coefficient  values  are 
needed  to  match  the  experimental  results. 

The  third  simulation  used  the  friction  coefficient 
model  developed  using  the  two-dimensional  computer  code, 
reported  in  Chapter  VI,  Eqs  (6.12),  (6.13)  and  (6.15). 

Figure  7.3  compares  the  numerical  results  with  the 
experimental  data.  Extremely  good  results  were  obtained. 
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Pressure  Ratio  p/p 


Axial  Location  z/L 


Figure  7.2  1-D  Model  with  Smooth  Pips  Friction 


123 


Pressure  Ratio  p/p 


35  micron  porous  pipe 
Aspect  Ratio  =  37.5 


Figure  7.3  1-D  Model  with  Improved  Friction  Model 


VIII.  Conclusions  and  Recommendations 


Conclusions 

As  »  result  of  the  numerical  and  experimental  studies 

\ 

conducted,  expressions  for  friction  coefficient  as  functions 
of  local  axial  Reynolds  number,  Hach  number,  pipe  aspect 
ratio,  and  radial  Reynolds  number  were  developed.  The 
expressions  were  shown  to  give  excellent  results  when 
pressures  calculated  using  the  friction  coefficients  in  a 
one-dimensional  model  were  compared  with  experimental  data. 
The  expressions  are  valid  for  Mach  numbers  up  to  one  with 
maximum  axial  Reynolds  numbers  between  30,000  and  2,000,000; 
and  for  radial  Reynolds  numbers  ranging  from  ±100  to 
±20,000. 

An  interesting  outcome  of  this  research  was  a  better 
understanding  of  the  effect  of  mass  injection  and  suction 
and/or  axial  pressure  gradients  on  transition  from  laminar 
to  turbulent  flow.  It  was  observed  that  mass 
inject ion/ favorable  pressure  gradients  caused  flows  to  stay 
laminar.  For  all  cases  studied,  the  flow  always  remained 
laminar  in  the  evaporator.  Axial  Reynolds  numbers  based  on 
pipe  diameters  as  high  as  1,000,000  where  tested.  In  the 
condenser  region,  a  region  with  mass  removal  and  an  adverse 
pressure  gradient,  the  flow  was  found  to  stay  laminar  at 
axial  Reynolds  numbers  less  than  12,000.  For  most  cases 
studied,  the  flow  entering  the  condenser  was  laminar  with  an 
axial  Reynolds  number  much  larger  than  12,000.  For  all  of 
these  cases  the  flow  was  observed  to  transition  from  fully 
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laminar  to  fully  turbulent  in  the  condenser  entrance  region. 

An  interesting  experimental  and  numerical  observation 
w«:s  that  supersonic  velocities  could  be  obtained  as  a  result 
of  mass  removal  from  a  constant  area  pipe. 

One  goal  of  this  research  was  to  better  understand  the 
vapor  dynamics  of  heat-pipe  transients.  It  was  found  that 
the  simulated  vapor  transient  phenomena  occur  very  quickly 
when  compared  to  the  slow  thermal  response  of  heat-pipe 
walls,  wicks  and  liquids.  It  is  felt  that  a  steady-state 
vapor  model  can  be  used  in  conjuction  with  a  transient  wall 
model  when  studying  most  heat-pipe  transients. 

A  numerical  study  was  conducted  to  help  understand  when 
boundary-layer  assumptions  can  be  made  and  when  the  full 
Navier-Stokes  equations  need  to  be  solved.  It  was  found 
that  for  large  blowing  parameters  (above  0.02)  or  for  pipes 
with  small  aspect  ratios  (L/R  <  24)  the  boundary-layer 
assumptions  are  invalid.  However,  for  most  heat-pipe 
applications,  the  boundary-layer  assumptions  will  give  good 
results  because  roost  heat  pipes  have  larger  aspect  ratios 
than  24.  For  pipes  with  small  aspect  ratios  the 
boundary-layer  assumptions  are  only  invalid  in  small  regions 
near  the  pipe  ends  and  near  the  evaporator /condenser 
junction. 

Recommendations 

'.There  will  always  be  more  work  that  can  be  done  to 
better  understand  heat-pipe  vapor  dynamics.  Some  ideas  for 
further  research  are: 
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1)  Intermediate  radial  Reynolds  number,  compressible 
flow  experiments  could  be  conducted  to  bet  :er  verify  the 
friction  coefficient  expressions  presented  in  Chapter  6 
(Equations  (6.12)  and  (6.13)). 

2)  The  turbulence  studies  could  be  refined  to  better 
determine  how  and  where  turbulence  begins.  This  would 
require  measuring  the  turbulence  in  the  pipe  as  a  function 
of  both  radial  and  axial  position,  not  just  along  the  center 
line  of  the  pipe  as  was  done  with  this  research.  It  would 
also  be  interesting  to  study  what  happens  to  a 
high-axial-Reynolds-number  laminar  flow  leaving  the 
evaporator  when  it  enters  an  idiabatic  region. 

3)  Perform  experiments  to  measure  the  transient  flow 
behavior.  Such  work  could  be  used  to  validate  the  transient 
portion  of  the  numerical  results.  A  movie  of  the  transient 
flow  behavior  predicted  by  the  numerical  study  might  also  be 
made  to  help  visualize  what  happens  during  the  transient. 

4)  Ultimately,  the  experimental  and  numerical  work 
should  be  extended  from  the  simulated  heat  pipe  with  air  to 
an  actual  heat  pipe  involving  an  evaporating  liquid. 
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APPENDIX  A:  Experimental  Data 


This  appendix  contains  much  o£  the  raw  experimental 
data  obtained  during  the  experimental  portion  o£  this 
research.  Each  data  £ile  has  a  name  made  up  of  two  parts. 
The  name  first  tells  the  target  mass  flow  rate  for  the  data 
run.  Next,  the  file  name  gives  the  location  of  the  velocity 
rake  when  the  data  was  taken.  For  examle,  file  M030A  had  a 
target  mass  flow  rate  of  0.030  Ibm/sec  of  air  and  the 
velocity  rake  was  in  position  A  (at  the  upstream  end  of  the 
evaporator) . 

Each  data  files  contains  the  following  information: 

1)  the  actual  system  mass  flow  rate 

2)  36  pressure  measurements  (psia). 

3)  for  all  data  runs  the  supply  air  temperature  was  at 
75  F  +5  F. 

Figure  B.l  can  be  used  to  determine  the  velocity  rake 
location,  A  through  0,  and  locate  where  the  36  pressure 
measurements  were  made.  In  general,  pressure  measurements  1 
-  2  where  for  the  orifice  plate,  3-8  for  the  evaporator 
manifold  pressures,  9-23  were  for  the  inside  of  the  porous 
pipe,  24  -  30  were  for  the  velocity  rake  stagnation 
pressures,  and  31  -  36  were  for  the  condenser  manifold. 
Velocity  rake  locations  A  through  0  correspond  to  pressure 
taps  9  through  23,  respectively.  In  Figure  B.l,  pressure 
taps  9  and  23  were  at  the  ends  of  the  test  section.  Taps  10 
and  22  were  1  inch  from  the  test  secton  ends.  Taps  10-15 
and  17-22  were  2  inches  apart.  Pressure  tape  16  is  0.900 


r 


inches  from  tap  17.  The  total  length  of  the  test  section 
was  24  3/8  inches. 


i 

Figure  A.l  Velocity  Rake  and  Pressure  Tap  Locations 
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FILE;  MOjOA 

MASS  FLOW  RATE  (LBM/SEC )  =  2.908601E-02 

PORT  PRESSURE  PORT  PRESSURE 


1 

102. 51 o 

2 

98.16144 

o 

20.87589 

4 

20.87785 

5 

20o66l 

6 

20.86544 

Y 

20.40528 

8 

20.55941 

9 

19.02857 

10 

19.04751 

11 

19.00702 

12 

18.95477 

1o 

18.89599 

14 

18.77517 

15 

18.62627 

16 

18.55448 

17 

18. 56226 

18 

18.60929 

19 

18.71117 

20 

1 8.77452 

21 

18.7915 

22 

18.8187 

2j 

18.81501 

24 

18.99265 

25 

18.99722 

26 

19.00114 

27 

18.99265 

28 

18.989_>8 

29 

18.99592 

jO 

18.99004 

81 

17.51^4 

82 

17.50557 

8j 

17.51079 

34 

17.50755 

85 

17.50557 

86 

17.50753 

FILE; 

MOoOB 

MASS  FLOW 

RATE  (LBM/SEC) 

PORT 

PRESSURE 

1 

100.4989 

2 

96.20675 

0 

20.25181 

4 

20.24528 

5 

20.2j809 

6 

20.24005 

7 

20.2^874 

8 

20.2394 

9 

1 8. 929 j 

10 

18.92604 

11 

18.89665 

12 

18.86007 

1o 

18.79084 

14 

18.69158 

15 

18.55769 

16 

18.48193 

17 

18.49696 

18 

18.54137 

2.8599o6E-02 


PORT 

PRESSURE 

19 

18.622;,5 

20 

18.69354 

21 

18.70594 

22 

18.720o1 

2j 

18.7o076 

24 

18.927^4 

25 

18.9o25Y 

26 

18.92865 

27 

18.92799 

28 

18.93322 

29 

18. 9j58j 

JO 

18.93583 

51 

17.45724 

o2 

17.4814 

33 

17.4592 

3M 

17.56045 

35 

17.45462 

36 

17.48336 
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MASS  FLOW  RATE  (LBM/SEC) 


2.8o5925E-02 


PORT 

PRESSURE 

PORT 

PRESSURE 

1 

100.701 3 

19 

18.59361 

2 

.  96.49411 

20 

18.66219 

3 

20. 2o613 

21 

18.68047 

4 

20.2407 

22 

18.68962 

5 

20.2o287 

2j 

18.69j54 

6 

20. 2j679 

24 

18.86922 

7 

20.23417 

25 

18.89469 

8 

20.2;s54S 

26 

18.89142 

9 

18.91297 

27 

18.88946 

10 

18.92016 

28 

18.89142 

11 

18.89665 

29 

18.90448 

12 

18.84897 

80 

18.88489 

la 

18.78801 

81 

17.42981 

14 

18.6746 

32 

17.48177 

15 

18.54006 

30 

17.42589 

16 

18.46561 

34 

17.42197 

17 

18. 4806j 

o5 

17.42^28 

18 

18.5283 

j6 

17.41609 

FILE: 

MOoOD 

MASS  FLOW 

RATE  (LBM/SEC)  = 

2.845921E- 

-02 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

100.8787 

19 

18. 624  0 1 

2 

96.64367 

20 

18.66676 

3 

20.24528 

21 

18.69223 

4 

20.25181 

22 

18.71313 

5 

20.24462 

2o 

18.70529 

6 

20.2o679 

24 

18.86203 

7 

20.24658 

25 

18.92995 

8 

20.24462 

26 

18.9195 

9 

18.92146 

27 

18.92408 

10 

18.93061 

28 

18.92995 

11 

18.9071 

29 

18.92995 

12 

18.86856 

80 

18.88554 

1 3 

18.79281 

31 

17.46573 

14 

18.69092 

32 

17.4592 

15 

18.55247 

33 

17.45854 

16 

18.47149 

34 

17.45332 

17 

18.50349 

35 

17.4592 

18 

18.55639 

36 

17.46638 

1 

•9 

* 

^  FIL£: 

MOjOE 

MASS  FLOW 

RATE  (LBM/SEC)  = 

2.9j6515E 

-02 

< 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

10o. 8218 

19 

18.78562 

i 

2 

99. 44542 

20 

18.84309 

i 

•  20.49149 

21 

18. 8666 

£ 

4 

20.48692 

22 

18.88489 

5 

20.48627 

23 

18.88097 

6 

20.48235 

24 

19.00375 

< 

7 

20.47125 

25 

19.07951 

j 

8 

20.47582 

26 

19.09845 

9 

19. 1^568 

27 

19.12523 

10 

19.1^306 

28 

19.11804 

* 

11 

19. 10106 

29 

19.11935 

* 

12 

19.06057 

3O 

19.02792 

18 

19.006;>7 

31 

17.57806 

14 

18.88685 

32 

17.59177 

15 

18.75166 

38 

17.59439 

16 

18.66088 

34 

17.58459 

'i 

17 

18.6759 

35 

17.58132 

• 

5 

18 

18.74056 

36 

17.57937 

* 

'  i 

€< 

FILE: 

MO3OF 

•1 

MASS  FLOW 

RATE  (LBM/SEC)  = 

2.911 141E-02 

*■ 

» 

PORT 

PRESSURE 

PORT 

PRESSURE 

t 

1 

103.055 

19 

18.75884 

2 

98.72311 

20 

18.80391 

< 

3 

20. 4j598 

21 

18.81958 

:J 

4 

20.43663 

22 

18.83852 

l< 

5 

20.42945 

23 

18.85158 

6 

20.43206 

24 

18.89534 

ti 

7 

20.49149 

25 

19.06057 

8 

20.43663 

26 

19.04555 

* 

9 

19. 1089 

27 

19. 10172 

\ 

10 

19.088 

28 

19.09976 

11 

19.08408 

29 

19.09523 

12 

19.0449 

30 

18.91167 

13 

18.97828 

31 

17.56108 

*  ( 

14 

18.85746 

32 

17.55128 

} 

15 

18.6968 

33 

17.55193 

4 

16 

18.61516 

34 

17.55585 

■  1 

17 

18.64325 

35 

17.56043 

- 

-  16 

18.70072 

36 

17.5454 

1 

! 

Hi 

$ 

. 
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FILL:  MOjOG 

MASS  FLOW  RATH  (LbM/SEC )  = 


PORT  PRESSURE 


1 

105.0459 

2 

98.72245 

5 

20.4477  5 

4 

20. 44 jl6 

5 

20.45426 

6 

20.4412 

7 

20.44^16 

b 

20.44969 

9 

19. 10629 

10 

19.09845 

11 

19.07298 

12 

19,0416b 

1j 

18. 97b06 

14 

18.87705 

15 

18.72292 

16 

18.60276 

17 

18. 6j 1 49 

18 

18.68962 

FILE: 

MOJOH 

MASS  FLOW 

RATE  (LBM/SEC) 

PORT 

PRESSURE 

1 

105.5608 

2 

101.1582 

0 

20.65542 

4 

20.64.j01 

5 

20.64627 

6 

20. 63586 

7 

20.6417 

8 

20. 6j452 

9 

19.27087 

10 

19.27152 

11 

19.2569 

12 

19. 18205 

1b 

19.15241 

14 

19.05208 

15 

18.88881 

16 

18.79607 

17 

18.77521 

18 

18.80915 

2.907956E-02 


PORT 

PRESSURE 

19 

18.76668 

20 

18.79346 

21 

18. 8j199 

22 

18.84048 

2  j 

18.85787 

24 

18.78627 

25 

19.00506 

26 

19.01616 

27 

19.09518 

28 

19. 09061 

29 

19.09584 

5O 

I8.85OO0 

51 

17.56696 

02 

17.57153 

33 

17.549o2 

34 

17.55193 

35 

17.55389 

56 

17.55065 

.029847 


PORT 

PRESSURE 

19 

18.89077 

20 

18.94106 

21 

18.96391 

22 

18. 974.56 

25 

18.97959 

24 

18.86205 

25 

19.05404 

26 

19.12457 

27 

19.2369 

28 

19.22188 

29 

19.21145 

30 

18.91036 

31 

17.66818 

32 

17.66688 

33 

17.67276 

34 

17.65645 

35 

17.66557 

36 

17.65904 
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FILE: 


MQjOI 


MAES  FLOW  RATE  (LBM/SEC )  = 


PORT  PRESSURE 


1 

104.5095 

2 

100. 1103 

3 

'  20.54047 

4 

20. 5j721 

5 

20.53721 

6 

20.52088 

7 

20.52545 

8 

20.5^067 

9 

19. 17421 

10 

19.19707 

11 

19. 14286 

12 

19.09584 

I3 

19.04^59 

14 

18.91885 

15 

18.79542 

16 

18.72488 

17 

18.720j1 

18 

18.75689 

2.9542;>3E-02 


PORT 

PRESSURE 

19 

18.84048 

20 

18.89469 

21 

18.90971 

22 

18.92799 

25 

18.95804 

24 

18.89338 

25 

18.98612 

26 

19.02792 

27 

19.13502 

28 

19.1409 

29 

19.11608 

3O 

18.87575 

31 

17.6179 

32 

17.61202 

33 

17.61724 

34 

17.61267 

35 

17.60745 

36 

17.61 1 37 

FILE:  MOjOJ 

MASS  FLOW  RATE  (LBM/SEC)  = 


PORT  PRESSURE 


1 

10s.64j5 

2 

99.28737 

3 

20.51565 

4 

20.42945 

5 

20.4^402 

6 

20.4301 

7 

20.42814 

8 

20.42749 

9 

19.07102 

10 

19.07951 

11 

19.05^39 

12 

19.00575 

I3 

18.9404 

14 

18.83591 

15 

18.70333 

16 

18.6341 

17 

18.64129 

18 

18. 71509 

2.927578E-02 


PORT 

PRESSURE 

19 

18.78431 

20 

18.34766 

21 

18.85615 

22 

18.87836 

25 

18.88162 

24 

18.8444 

25 

18.89275 

26 

18.90644 

27 

19.02204 

28 

18.992 

29 

18.97306 

30 

18.84505 

31 

17.59047 

32 

17.58198 

38 

17.5774 

54 

17.5761 

35 

17.58459 

36 

17.57218 

FILE: 


MG3OK 


MASS  FLO  Vi/  KATE  (L3M/SEC) 


2.921422E-02 


PORT 

PRESSURE 

PORT 

PRESSURE 

1 

IO3.3O71 

19 

18.76995 

2 

98.95495 

20 

18.82285 

0 

•  20.40332 

21 

18.82872 

4 

20.39287 

22 

18.85942 

5 

20.38895 

23 

18.85942 

6 

20.38j7j 

24 

18.86007 

7 

20.39549 

25 

18.87248 

6 

20.39353 

26 

18. 8666 

9 

19.03184 

27 

18.90579 

10 

19.0^249 

28 

18.87509 

11 

19.01028 

29 

18.88554 

12 

18.97306 

30 

18.85028 

13 

18.90971 

31 

17. 56369 

14 

18.79803 

32 

17.55651 

15 

18.65174 

33 

17.55781 

16 

18.59884 

34 

17.5552 

17 

18.61843 

35 

17.54279 

18 

18.70921 

36 

17.54671 

FILE: 

M030M 

MASS  FLOW 

RATE  (LBM/SEC)  = 

2. 861 617E- 

-02 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

101.3929 

19 

18.65762 

2 

97.13871 

20 

18.72162 

3 

20.23483 

21 

18.74644 

4 

20.23809 

22 

18.79803 

5 

2O.236I3 

23 

18.75754 

6 

20.23679 

24 

18.81566 

7 

20.23809 

25 

18.78431 

8 

20.22438 

26 

18.77648 

9 

18.88685 

27 

18.80978 

10 

18.89926 

28 

18.8026 

11 

18.86791 

29 

18.78889 

12 

18.83003 

30 

18.74121 

la 

18.77582 

31 

17.46246 

14 

18.6759 

S2 

17.4716 

15 

18.54006 

33 

17.4703 

16 

18.479:52 

34 

17.4605 

17 

18.50087 

35 

17.47422 

18 

18.57794 

06 

17.46507 

i 


FILE: 


MOjOO 


MASS  FLOW  RATE  (LBM/SEC) 


2.993901E-02 


PORT 

PRESSURE 

PORT 

PRESSURE 

1 

101.3505 

19 

18.62888 

2 

96.67959 

20 

18.68831 

3 

20.24005 

21 

18. 71901 

4 

20.2087 

22 

18.73207 

5 

20.21785 

23 

18.74121 

6 

20.19303 

24 

18.7288 

7 

20. 19499 

25 

18.73729 

8 

20.20544 

26 

18.73142 

9 

18. 8620j 

27 

18.77648 

10 

18.85354 

28 

18.7608 

11 

18.82742 

29 

18.77909 

12 

18.80587 

30 

18.72684 

1J 

18.75035 

31 

17.46311 

14 

18.6439 

32 

17.46311 

15 

18.51459 

33 

17.46116 

16 

18.45255 

34 

17.45985 

17 

18.46887 

35 

17.46116 

18 

18.55769 

36 

17.45201 

FILE; 

M060A 

MASS  FLOW 

RATE  (LBM/SEC)  = 

6.041523E-02 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

110.5963 

19 

23.08687 

2 

91 . 864^6 

20 

23.31022 

3 

26. jjOl 1 

21 

23.40819 

4 

26.33011 

22 

23.4957 

5 

26.32684 

2.3 

23.52509 

6 

26.33991 

24 

24. 15467 

7 

26.3j664 

25 

24. 1723 

8 

26. 3:>795 

26 

24.17557 

9 

24. 18732 

27 

24.16643 

10 

24. 18994 

28 

24.15467 

11 

24.11418 

29 

24.14487 

12 

23.97768 

30 

24.14683 

1j 

23.75563 

31 

21.011 o5 

14 

23. 35855 

32 

20.90816 

15 

22.87266 

33 

20.8951 

16 

22.53697 

34 

20.8964 

17 

22.58268 

35 

20.88792 

18 

22.73224 

06 

20.87355 
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FILE; 


M090A 


MASS  FLOW  RATE  (LBM/SEC)  =  8.  91:>799E-Q2 


PORT 

PRESSURE 

PORT 

PRESSURE 

1 

108.7409 

19 

25. 857 9 j 

2 

58.76841 

20 

26.84518 

3 

00.8989 

21 

26.50448 

4 

80. 87039 

22 

26.6978 

5 

80.86451 

23 

26.76703 

6 

80.88969 

24 

27.96937 

7 

jO. 8o8j9 

25 

28.00202 

8 

80.82271 

26 

27.99941 

9 

26.06406 

27 

2b. 00267 

10 

28. 07451 

28 

28.0079 

11 

27.9^824 

29 

28.0046;* 

12 

27.72511 

80 

28.0079 

no 

27.84632 

81 

22.87592 

14 

26.62204 

82 

22.87858 

15 

25.59478 

88 

22.872 

16 

24.89005 

34 

22.86678 

17 

24.98088 

j5 

22.86482 

18 

25.25055 

86 

22.84528 

FILE: 

M090C 

MASS  FLOW 

RATE  (LBM/SEC)  = 

8. 621 ;21E- 

-02 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

107.6554 

19 

25.85401 

2 

58.28875 

20 

26.26807 

3 

80.69862 

21 

26.40456 

4 

80.70516 

22 

26.55085 

5 

30.70777 

28 

26.6129 

6 

jQ. 69144 

24 

27.65392 

7 

80.6934 

25 

27.89361 

8 

oO. 68491 

26 

27.95892 

9 

27.96087 

27 

27.97524 

10 

27.96479 

28 

27-97198 

11 

27.83852 

29 

27. 9824.3 

12 

27.60364 

30 

27.71988 

18 

27.2^007 

3l 

22.81322 

14 

26.54759 

82 

22.81518 

15 

25.54183 

33 

22.81127 

16 

24.82218 

34 

22.82106 

17 

24.96254 

35 

22.82287 

18 

25.80215 

36 

22.79167 

J 
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FILE:  M090E 


MASS  FLOW 

RATE  (LBM/SEC)  = 

8. 886908E- 

-02 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

108. 4372 

19 

25.97222 

2 

58.62604 

20 

26.37909 

3 

'  30. 8906 j 

21 

26.58257 

4 

30.88802 

22 

26.63184 

5 

jO. 88541 

23 

26.74156 

6 

30.85471 

24 

27.54j55 

7 

jO. 86059 

25 

27.95565 

6 

30.84753 

26 

27.96849 

9 

28.114^5 

27 

28. 12284 

10 

28. II63I 

28 

28.10063 

11 

27.98569 

29 

28.11043 

12 

27.77083 

80 

27.59841 

1b 

27.45212 

31 

22.89747 

14 

26.67429 

82 

22.90792 

15 

25.65351 

33 

22.90727 

16 

24.93315 

34 

22.89878 

17 

25.08j36 

35 

22.8929 

18 

25.4;s668 

36 

22.87004 

FILE: 

M090G 

MASS  FLOW 

RATE  (LBM/SEC)  = 

8.907914E- 

-02 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

108.6971 

19 

25.94609 

2 

58.78212 

20 

26.^9215 

3 

31.078C7 

21 

26.52604 

4 

31.0883 

22 

26. 6o776 

5 

31.05979 

23 

26.73045 

6 

31.15579 

24 

26.59657 

7 

31.04607 

25 

27.61017 

8 

31.03105 

26 

27.65196 

9 

28.26717 

27 

28.23648 

10 

28.25868 

28 

28.13264 

11 

28. 15223 

29  . 

28. 147 

12 

27.92887 

30 

26.82776 

13 

27.61212 

jl 

22.92817 

14 

26.97667 

32 

22.92686 

15 

26.00161 

33 

22.9249 

16 

24.98119 

34 

22.93209 

17 

25.05005 

85 

22. 9j1 43 

18 

25.41448 

j6 

22.89421 
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FILE: 


M090I 


MAoS  FLOW  RATE  (L3M/SEC)  =  8. 89761 4E-02 


PORT 

PRESSURE 

1 

108.5756 

2 

58.72204 

8 

' 30.99774 

4 

30.99j17 

5 

30.96599 

6 

30.90173 

7 

30.77895 

3 

30.68948 

y 

27.84528 

10 

27. 8028 j 

ii 

27 . 65 j2Y 

12 

27.39726 

13 

27. 10467 

14 

26.44244 

15 

25.54575 

16 

24.970J8 

17 

24.92336 

18 

25.02393 

FILE: 

M090K 

MASS  FLOW 

RATE  (LBM/SEC ) 

PORT 

PRESSURE 

1 

106.747 

2 

57.7169.5 

3 

30.37012 

4 

80.36228 

5 

_>0.  56I63 

6 

30.35771 

7 

30. 345.5 

8 

3O. 34465 

9 

27.5331 

10 

27.52265 

11 

27.4051 

12 

27.18435 

1  3 

26.86042 

14 

26.21909 

15 

25.30998 

16 

24.69935 

17 

24.81756 

18 

25.1761 

PORT 

PRESSURE 

19 

25.546^6 

20 

25.9585 

21 

26.09565 

22 

26.23476 

23 

26.28962 

24 

25.79066 

25 

26.74025 

26 

26.97406 

27 

27.698.53 

28 

27.54028 

29 

27.48543 

JO 

26.07606 

31 

22.59966 

32 

22.59509 

33 

22.59575 

34 

22.5964 

33 

22.59052 

36 

22.56505 

8.748751E-02 


PORT 

PRESSURE 

19 

25.67657 

20 

26.09369 

21 

26.26154 

22 

26.38823 

23 

26.44636 

24 

26.2341 1 

25 

26.47183 

26 

26.52016 

27 

27.09227 

28 

26.90352 

29 

26.85585 

30 

26.28701 

31 

22.67346 

32 

22.67216 

33 

22.67216 

34 

22.67738 

35 

22.67412 

36 

22.64864 

FIlE; 


MO^OM 


MASS  FLOW  Rate  (LBM/SEO  =  8.7701Y4E-Q2 


PORT 

PRESSURE 

PORT 

PRESSURE 

1 

106.9821 

19 

25.67245 

2 

57.80902 

20 

26. 13092 

3 

80.36083 

21 

26.31052 

4 

30.86751 

22 

26.4:5526 

5 

j0. 35^14 

26.46007 

5 

30o5053 

24 

26.5^91 

jO. 34596 

25 

26.48947 

8 

30.34987 

26 

26.47248 

9 

27.51748 

27 

26.51863 

10 

27 .51 87  ^ 

28 

26.50383 

11 

27 . 3 '"•>884 

29 

26.51298 

12 

27. 16606 

80 

26.44571 

13 

26.84866 

31 

22.66105 

14 

26.20602 

32 

22.6604 

15 

25.28256 

33 

22.65844 

16 

24.6745:5 

34 

22.6604 

17 

24.77184 

35 

22.65518 

18 

25.10034 

36 

22.63558 

FILE: 

M090O 

MASS  FLOW 

RATE  (LBM/SEC)  = 

8.761744E- 

-02 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

106.908j 

19 

25.70315 

2 

57.79465 

20 

26. 16^57 

3 

30.33551 

21 

26.34578 

4 

30.34189 

22 

26.50253 

5 

30.34792 

23 

26.53126 

6 

jO. 32767 

24 

26.53322 

7 

30.32767 

25 

26.53257 

8 

30.31592 

26 

26.52604 

9 

27.5011 

27 

26.53126 

10 

27.50045 

28 

26.61551 

11 

27.36656 

29 

26.52995 

12 

27.14517 

sO 

26.53322 

13 

26.82254 

31 

22.69109 

14 

26.18251 

32 

22.67803 

15 

25.27864 

33 

22.68195 

16 

24.66408 

34 

22-68065 

17 

24.79862 

35 

22.66955 

18 

25.11994 

36 

22.65648 

*40 


1 


mmsm 


FILE: 

M15A 

MASS  FLOW 

RATE  (LBM/SEC) 

PORT 

PRESSURE 

1 

106, 7526 

2 

105. 1276 

5 

•  89.77186 

4 

39.76418 

5 

39.75896 

6 

j9. 72826 

7 

39.67797 

8 

39.6799j 

9 

35.75552 

10 

85.74899 

11 

85.49037 

12 

34.98555 

1j 

34.27627 

14 

32.48158 

15 

29.58448 

16 

27. 14911 

17 

27.4652 

18 

28.32271 

FILE: 

M15C 

MASS  FLOW 

RATE  (LBM/SEC) 

PORT 

PRESSURE 

1 

106.651 

2 

105.0564 

3 

39.74067 

4 

39.74067 

5 

39.72826 

6 

39.70213 

7 

39.660^4 

8 

59.66361 

9 

35.78598 

10 

35.79209 

11 

j5. 52452 

12 

34.9274 

1 3 

34.13912 

14 

32.42019 

15 

29.55117 

16 

27.22094 

17 

27.4972 

18 

28.434^8 

. 1544^02 


PORT 

PRESSURE 

19 

29.92539 

20 

31.22242 

21 

31.64955 

22 

32.25953 

23 

32.4548 

24 

35.69086 

25 

35.74115 

26 

35.75201 

27 

55.7_>07 

28 

35.72809 

29 

35.72874 

30 

35.73527 

3I 

24.57724 

32 

24.6739 

33 

24.70002 

34 

24.7268 

35 

24.7j725 

36 

24. 6j)275 

. 1542165 


PORT 

PRESSURE 

19 

30.05078 

20 

3I. 25508 

21 

31.62212 

22 

^2. 1 1455 

23 

j2. 49791 

24 

35.43681 

25 

35.780^4 

26 

35.69086 

27 

35.7196 

28 

35.72939 

29 

35.70131 

50 

35.52759 

3I 

24.59096 

52 

24.64843 

3-1 

24.67128 

34 

24.72553 

35 

24.72027 

86 

24.59879 

MASS  FLOW  RATE  (LBM/SEC) 


1539294 


W 


PORT 

PRESSURE 

PORT 

PRESSURE 

1 

106.5791 

19 

29.95282 

2 

102.995 

20 

31.18034 

0 

'  89.77789 

21 

31.53982 

4 

39.80467 

22 

31.97413 

5 

39.77529 

2j 

82. 16548 

6 

39.74394 

24 

34.48004 

7 

39.707^6 

25 

35. 35^87 

8 

39. 68581 

26 

35.41918 

9 

35.79013 

27 

35.75421 

10 

35.83062 

23 

35.73527 

11 

35.54457 

29 

35.71699 

12 

35.05737 

30 

34.66486 

13 

34.32068 

31 

24.50409 

14 

32. 40321 

32 

24.60728 

15 

29.55509 

83 

24.63406 

16 

27.16413 

34 

24.65692 

17 

27.48545 

35 

24.64^2 

18 

28.42132 

36 

24.54001 

FILE: 

M15G 

MASS  FLOW 

RATE  (LBM/SEC)  = 

. 153^545 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

106.5511 

19 

29.89535 

2 

102.9885 

20 

3I.O8I36 

3 

40.318 

21 

31.50129 

4 

40.82453 

22 

31.87878 

5 

40.33302 

2_> 

32.02572 

6 

40.32192 

24 

32.I23O3 

7 

40.31082 

25 

34.90062 

8 

40.22918 

26 

34.95156 

9 

36.o5505 

27 

36.2695 

10 

36.37269 

28 

36.12713 

11 

36.09186 

29 

36. 14084 

12 

35.6847 

30 

32.60567 

13 

34.89213 

3l 

24.47405 

14 

33-38741 

32 

24.56157 

15 

30.9429 

33 

24.56875 

16 

27.07465 

34 

24.59487 

17 

27.45998 

35 

24.59618 

18 

28.30899 

36 

24.4832 

'  t 
f 
t 

@ 

FILE: 

Ml  51 

« 

j 

i 

MASS  FLOW 

RATE  (LBM/SEC)  = 

.153184 

i 

o  4 

v 

PORT 

PRESSURE 

PORT 

PRESSURE 

3 

i 

1 

106.8706 

19 

29.74056 

*5 

2 

102.8141 

20 

30.87237 

t 

o* 

3 

40.02411 

21 

31-24136 

4 

40.00821 

22 

31.60448 

i 

i 

s 

; 

5 

40.00582 

23 

j  1.86572 

;< 

6 

j9. 96599 

24 

3I.O33OJ 

■( 

’j 

7 

89.950j1 

25 

33.62057 

$ 

8 

89.941 17 

26 

33.75054 

9 

85.9521 

27 

35.81495 

< 

•  i 

10 

85.97822 

28 

35. 39305 

< 

5 

11 

85. 684.35 

29 

35.43289 

;< 

vi 

i 

12 

85. 18472 

30 

31.3021 

5 

| 

I3 

34.4944 

31 

24.44074 

3 

14 

82.87539 

32 

24.54981 

-. 

15 

3O. 83712 

38 

24.52369 

16 

28.50688 

34 

24.54459 

17 

28.65905 

35 

24.56745 

i 

t 

l 

,  t 

! 

i 

i 

18 

28.28418 

36 

24.44793 

« 

I 

i  © 

f 

! 

FILE: 

M15K 

2 

I 

MASS  FLOW 

RATE  (LBM/SEC)  = 

. 1534468 

1 

i 

PORT 

PRESSURE 

PORT 

PRESSURE 

4* 

.j 

1 

106.4472 

19 

29.82265 

'  V 

'  4 

2 

102.8807 

20 

31.01148 

1 

3 

39.24106 

21 

31.55942 

t 

•» 

4 

39.1875 

22 

31.91862 

1 

5 

39.  197  3 

23 

32.03291 

6 

39.17967 

24 

31.5137 

2 

i 

7 

39. 12154 

25 

32.20532 

i 

i 

j 

8 

39.0915 

26 

32o5684 

| 

t 

9 

35.03255 

27 

34. 12737 

•tl 

10 

35.02926 

28 

33.50432 

*( 

«• 

11 

34.76985 

29 

•33.38938 

| 

1 

12 

34.24165 

30 

3I.5666 

f 

I3 

33.46905 

31 

24.45815 

14 

31.87486 

32 

24.57006 

J 

15 

29.29581 

38 

24.57659 

1 

> 

16 

27.24903 

34 

24.61447 

1 

) 

5 

17 

27.61084 

35 

24.59422 

1 

18 

28.60158 

36 

24.4845 

143 
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FILE; 


M15M 


MASS  FLOW 

RATE  (LBM/SEC)  = 

.  15^4006 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

106.4786 

19 

29.8849 

2 

•  102.9147 

20 

31.17736 

3 

jS. 0464 j 

21 

81.68481 

4 

39-04121 

22 

82.08711 

5 

89. oy/yn 

28 

j2. 15112 

6 

39.01901 

24 

82.09887 

7 

38.97982 

25 

82. 156_>4 

8 

j8. 956j1 

26 

82.15046 

9 

84.85621 

27 

82.27455 

10 

84.8856 

28 

82.28/98 

11 

d4. 58975 

29 

82.22622 

12 

84.07512 

80 

82.08552 

Id 

88.31754 

8l 

24.37805 

14 

31.69526 

32 

24.47862 

15 

29.08095 

d3 

24.50475 

16 

27.01457 

34 

24.56287 

17 

27.35548 

35 

24.58986 

18 

28.28809 

36 

24.48095 

FILE: 

Ml  50 

MASS  FLOW 

RATE  (LBM/SEC;  = 

.  15j6j21 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

106.2892 

19 

29.78889 

2 

102.707 

20 

d 1.09703 

8 

88.94521 

21 

81.66587 

4 

88.92561 

22 

82.07862 

5 

88.96219 

23 

32.14198 

6 

88.9008 

24 

82.14067 

7 

38.88251 

25 

32. 14198 

8 

86.86226 

26 

32.13414 

9 

84.79221 

27 

32.15242 

10 

34.76847 

28 

32.15438 

11 

84.48988 

29 

32. 16418 

12 

83.99217 

30 

32. 16091 

13 

33.22218 

31 

24.39764 

14 

81.61754 

32 

24.50475 

15 

29.01825 

33 

24.52695 

16 

26.95514 

34 

24.55895 

17 

27.2745 

35 

24.55504 

18 

28.2143 

36 

24.45511 

144  - 

FIl£: 


M4QA 


MASS  FLOW 

RATE  (LBM/SEC)  = 

ob18089 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

112.7265 

19 

35.68415 

2 

.  89.57382 

20 

46.33082 

3 

77.27220 

21 

48.8106 

4 

77.0763 

22 

54.02291 

5 

76.98096 

23 

55.67914 

6 

76.90846 

24 

71.3572 

7 

76.91826 

25 

71.2246:, 

8 

76.74323 

26 

71.20177 

9 

71.1jo2 

27 

71.02675 

10 

71.23376 

28 

15.37765 

11 

70.67146 

29 

69.7j428 

12 

69.39728 

30 

70.78836 

1j 

67. 10167 

3 1 

15.37765 

14 

61.83516 

32 

15.57553 

15 

50.78946 

33 

16.26324 

16 

25o0265 

34 

18.29238 

17 

19.79841 

o5 

19.30271 

18 

15.4^838 

36 

19.41635 

m 


FILE: 

M40C 

MASS  FLOW 

RATE  (LBM/SEC)  = 

.3761953 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

112. 127 

19 

34.94943 

2 

89.61106 

20 

46.00101 

3 

77.31925 

21 

48.96081 

4 

77.50016 

22 

53.19152 

5 

77.72548 

2j 

54.84188 

6 

77.88418 

24 

70.40565 

7 

78.00892 

25 

70.97188 

8 

77.76531 

26 

71.32585 

9 

72.0018 

27 

71.57664 

10 

71.85225 

28 

15.37765 

11 

70.9^641 

29 

70.71913 

12 

69.12233 

30 

71.27948 

13 

66.44466 

31 

15.37765 

14 

60.9241 

32 

15.6108 

15 

49.85358 

33 

16.2776 

16 

24.71421 

34 

18.43084 

17 

19. 55j5 

35 

19.48297 

18 

15.37765 

36 

19.417 

-  145  - 


FILE: 


M40E 


MASS  FLOW  RATE  (LBM/SEC)  = 


PORT  PRESSURE 


1 

11 s. 5938 

2 

.  90.32814 

3 

78.00826 

4 

77.80255 

5 

77.60923 

6 

77.33885 

7 

77.09o95 

8 

76.66682 

9 

70.98886 

10 

71.0261 

11 

70.4899 

12 

69.J163 

Is 

67.24666 

14 

61.45375 

15 

50.48447 

16 

25.10411 

17 

19.8s825 

18 

15.4168s 

FILE: 

M40G 

MASS  FLOW 

RATE  (LBM/SEC) 

PORT 

PRESSURE 

1 

112.0871 

2 

90.31116 

S 

78.91214 

4 

79. 02j1 6 

5 

79. 1283I 

6 

79.18578 

7 

79.28897 

8 

79.095 

9 

73.89446 

10 

74.08124 

11 

73.6267 

12 

72.5778s 

13 

70.67734 

14 

66.41593 

15 

58.00153 

16 

23.72674 

17 

18.86514 

18 

15.37765 

.3843844 


PORT 

PRESSURE 

19 

35.26291 

20 

46.60642 

21 

50.40087 

22 

53. 57358 

23 

55.2481 

24 

68.66582 

25 

71.1541 

26 

71.14233 

27 

71.82678 

28 

15.37765 

29 

70. 3jJ16 

30 

68.20996 

31 

15.37765 

32 

15.57096 

33 

16.22274 

s4 

18.26626 

s5 

19.31186 

36 

19.23806 

.370752 


PORT 

PRESSURE 

19 

j4. 73391 

20 

45.08211 

21 

49.09273 

22 

52.06233 

23 

52.82514 

24 

6O.7863 

25 

68. 86566 

26 

69.24446 

27 

73.17018 

28 

15.37765 

29 

72.03772 

30 

62.21787 

31 

15.37765 

32 

15.52524 

s3 

16.19205 

34 

18. 14609 

35 

19.19626 

36 

19.15577 

146 


FIlE:  M40H 

MASS  FLOW  RATE  (LBM/SEC )  = 


PORT  PRESSURE 


1 

112. 1955 

2 

.  90. o3598 

3 

80.49197 

4 

80.53246 

5 

80.79565 

6 

80.96023 

7 

81.0o468 

8 

80.90472 

9 

75.47428 

10 

75.918o8 

11 

75.37501 

12 

74.03944 

I3 

72.16769 

14 

68.2165 

15 

60.51004 

16 

50.4159 

17 

16.3501 

18 

15.37765 

FILE: 

M40I 

MASS  FLOW 

RATE  (LBM/SEC) 

PORT 

PRESSURE 

1 

114.0o92 

2 

89.95849 

3 

78.7959 

4 

78.54315 

5 

78.37987 

6 

78.34265 

7 

78. 17741 

8 

'  77.72483 

9 

71.69485 

10 

71.49108 

11 

70.75833 

12 

69.43712 

13 

37.26625 

14 

62.53462 

15 

53.2712 

16 

42.78716 

17 

45.94941 

18 

15.37765 

oY  15094 


PORT 

PRESSURE 

19 

34.51578 

20 

44.73271 

21 

49.50353 

22 

51.533o3 

2o 

51.99768 

24 

56.89846 

25 

68.51691 

26 

69.91583 

27 

74.74543 

28 

69.61868 

29 

73.60775 

30 

60.41992 

31 

15.37765 

32 

15.38614 

33 

16.07123 

34 

18.02005 

35 

19.08654 

36 

19.05193 

. 5915754 


PORT 

PRESSURE 

19 

34.01616 

20 

42.44886 

21 

46.5594 

22 

49.92873 

50.54194 

24 

54.0647 

25 

65.51728 

26 

65.43564 

27 

72.  18205 

28 

66.51911 

29 

70.7453 

3O 

54.96401 

31 

16.04968 

32 

15.46255 

33 

16. 13458 

34 

17.65432 

35 

18.5497 

36 

18.4746 

147 


HASS  FLOW  RATE  (LBM/SEC)  =  . 391389 


PORT  PRESSURE 


1 

112.127 

2 

87.50418 

8 

•  76.07446 

4 

76. 18418 

5 

76.j06.j1 

6 

76o7881 

7 

76.464j6 

a 

76.24884 

9 

70.1986j 

10 

70.80573 

11 

69.70555 

12 

68. 34123 

U 

65.89672 

14 

60.45649 

15 

49.33764 

16 

24.85659 

17 

29.28192 

18 

42.33914 

FILE: 

M40K 

MASS  FLOW 

RATE  (LBM/SEC) 

PORT 

PRESSURE 

1 

112.2^86 

2 

87 . 51 o33 

j 

76.20966 

4 

76.8246 

5 

76.45065 

6 

76.51008 

7 

76.59171 

8 

76.4206 

9 

70.35667 

10 

70.46051 

11 

69.8j028 

12 

68.48332 

18 

65.89988 

14 

60.39249 

15 

49.28249 

16 

24.76058 

17 

19.30206 

18 

29.45564 

PORT 

PRESSURE 

19 

31.47042 

20 

41.1257 

21 

44.66609 

22 

47.7219 

23 

48.34103 

24 

49.22596 

25 

59.68519 

2b 

58.87732 

27 

66.74771 

28 

66.26964 

29 

67.08078 

30 

49.88428 

31 

15.7597 

82 

16.58521 

33 

16.51272 

34 

17.79604 

35 

18.59803 

86 

18.49941 

.3923856 


PORT 

PRESSURE 

19 

41.54563 

20 

43.0079 

21 

46. 15j83 

22 

48.95951 

2  j 

50.17164 

24 

47.81568 

25 

55.87572 

26 

59.95883 

27 

66. 62Q36 

28 

66.32515 

29 

65.85166 

30 

50.18666 

31 

15.38548 

32 

16.32789 

33 

I6.85363 

34 

18.17352 

35 

18.97421 

36 

18.7613 

FILE:  M40M 


MASS  FLOW  RATE  (LBM/SEC)  =  .<950664 


PORT 

PRESSURE 

PORT 

PRESSURE 

1 

llj.4299 

19 

3^.95581 

2 

88.66081 

20 

46.57311 

3 

•  76.6^025 

21 

52.95706 

4 

76.41608 

22 

56.22708 

5 

76.2s578 

28 

57.0761 

6 

75.96215 

24 

54.79421 

7 

75.741s9 

25 

56.41687 

8 

75.40118 

26 

56.99773 

9 

69.250.j5 

27 

60.82418 

10 

69.30585 

28 

59.46^14 

11 

68.705 

29 

58. 6454 ( 

12 

67.38511 

30 

54.47876 

U 

65.04509 

si 

15.37765 

14 

59.8132 

32 

15.53439 

15 

48.96211 

88 

16.22666 

16 

24.73119 

31* 

18.36161 

17 

19.29749 

35 

19.68281 

18 

15.37765 

so 

19.77816 

FILE: 

M400 

MASS  FLOW 

RATE  (LBM/SEC)  = 

.3937804 

PORT 

PRESSURE 

PORT 

PRESSURE 

1 

113.601 

19 

34.6^1^7 

2 

89.05919 

20 

46.33278 

3 

76.81441 

21 

52.96556 

4 

76. 61 131 

22 

57.03887 

5 

76.4304 

2j 

57.51628 

6 

76.15415 

24 

57.45685 

7 

75.90532 

25 

57.31448 

8 

75.4338 

26 

57.26158 

9 

69.26406 

27 

57.  «721 

10 

69.29801 

28 

57.04279 

11 

68.66191 

29 

56.87168 

12 

67.32699 

30 

56.66922 

Is 

64.98762 

31 

15.37765 

14 

59.74985 

32 

15.52655 

15 

48.9164 

33 

16.19531 

16 

24.71552 

34 

18.327 

17 

19.28508 

35 

19.69 

18 

15.37765 

36 

19.85892 

-  149  - 


<• „"V 1.  < 


APPENDIX  B:  Navier-Stokes  Computer  Code 


With  the  exception  of  the  boundry  conditions 
subroutine,  the  computer  code  contained  in  this  appendix  was 
written  by  Dr.  Joe  Shang  of  the  Flight  Dynamics  Laboratory, 
Wright  Patterson  Air  Force  Base,  Dayton,  Ohio.  It  solves 
the  compressible  Navier-Stokes  equations  for  axisymmetric 
flow  situations.  The  main  variables  used  in  the  program  are 
defined  below. 


BETA 

Program  variable. 

0=time  accurate  solution 
l=>accelerated  solution 

CFL 

time  step  safety 

factor 

CINF 

initial  condition 

sonic  velocity 

CV 

constant  volume  specific  heat 

CX 

dampening  factor 

(between  0  and  5) 

CY 

dampening  factor 

(bewteen  0  and  5) 

DETA 

radial  direction 

node  spacing 

DT 

time  step 

DZETA 

axial  direction  node  spacing 

EP 

turbulent  eddy  viscosity 

GAMMA 

ratio  of  specific 

heats 

GAMM1 

GAMMA  -  1 

IG 

1 

ILE 

1 

ISMTHX 

dampening  parameter:  0=no  damping 

l=damping 

ISMTHY  dampening  parameter  (same  values  as  above) 


JL  number  o f  radial  nodes 

JLH  JL  -  1 

XL  number  of  axial  nodes 

KLK  XL  -  1 

MEND  number  of  lact  iteration 

MI  number  of  first  iteration 

PEX  porous  pipe  environment  pressure 

PHIGH  evaporator  environment  pressure 

PIN?  initial  pressure 

PLOD  condenser  environment  pressure 

PR  Prandtl  number 

PRT  Turbulent  Prandtl  number 

RC  Ideal  gas  constant 

RCV  reciprocal  of  CV 

REY  axial  Reynolds  number 

RHO  density 

RHOINF  initial  density 

RHOF  RHO  for  predictor  step 

RHOE  density  times  total  energy 

RKOEP  RHOE  for  predictor  step 

RHOU  density  times  axial  velocity 

RHOUP  RHOU  for  predictor  step 

RHOV  density  times  radial  velocity 

RHOVP  RHOV  for  predictor  step 

RL  reference  length 

RLMBD  combination  of  first  and  second  coefficients 

of  viscosity 

RMU  first  coefficient  of  viscosity 


RHINF  initial  value  of  RHU 


TCH 

TEX 

TINF 

TMS1 

TMS2 

UINF 

VINF 

X 

XH 


reference  time 

porous  pipe  environment  temperature 
initial  reference  temperaature 
total  time  variable 
total  time  variable 
initial  axial  velocity 
initial  radial  velocity 
axial  coordinates  of  grid 
initial  Mach  number 
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PROGRAM  MAIN 

COMMON  /  /  DET  A  »  DZE  TA#CV*RC»PR  ♦PRT»GAMf*A»EP<96t25*l)  *  DT  L! 25 )  « 

1  GAMM1 »CFL>BETA»UINF»VINF  »RHGI NF »CI NF  » TINF *PI NF *TW  »DT »CX,CY»L» 

2  JL,KL,JLM»KLM,ILE»  ISMTHX »I SMTHY t GA MM  2 »RL » TMS1 

COMMON  / OEPP/  RH0P!96»25»l>»RH0UP!96»25»l>»RH0VP!9£t25»l)» 

1  RH  OEP! 96  »25tl ) 

COMMON  /DEP/  RH0!96»25»1)»RH0U!96»25»1) »RH0V!96|25»1> t 
1  RH  GE  (96  ♦  25  *  1 ) 

COMMON  /OOF/  X!96»25»l>  *Y!96»25fl> 

COMMON  /TV/  ETY!96,25»1>»ZTX!96,25,1> 

COMMON  /3 V/  PEX <9 6)  »TEX  !96  ) 

CONSTANTS  AND  PARAMETER  FOR  AIR 

CV=4290. 

RC=1718. 

GAMMA=1.4 

GAMMl=GAMMA-l.u 

GAMM2=2 

?R=0.73 

PRT  =0 • 90 

RCV=1.0/CV 

100  FORMAT!  7E13. 5) 

101  FORMAT ( 2E15.9 ) 

113  FORMAT (1315) 

500  FORMAT  ( *  REYNOLDS  N0.  =  »*E15.7, 

1  'REFERENCE  LENGTH=  »  »F  1 0 . 4/> 

510  FORMAT!*  RHOINF=« , E15 . 7, * VINF= « • FI  3 » 4, « Cl NF= * * FI u • 4, *T1NF=», 

1  F13.4»*PINF=«,F1C.  2»  *RMUINF=*  ,E15.7/) 

520  FORMAT!*  DET A=  •  *E1 5 .7 » *0ZET A= * » E 15.7 / ) 

530  FORMAT!  »  CFL  =  »»F13 .4, *CX  =  »  »F10 .4,*CY= » ,F1C«4, *BETA=*  *F10 .4/) 
553  FORMAT!*  NEN9-*  tI5»*JL='<  tI5»*KL-’  »I5/) 

560  FORMAT!*  LOCAL  CFL  TIME  STEP  CALCULATION  ! TI ME  -  WAR P ) »/ ) 

53  3  FORMAT! •  N=*»I5,»DT CFL  =  • »E1 5 • 7 »  *TMS2= * »E15 .7* » TMSl  =  • ♦ E 1 5. 7, 

1  *TMS2/TCH=«,E15.7, *QTMAX=» »E15.7> 

590  f  OR  MAT ! *  J  K  X  Y  Y /YL  RHO 

1  U  V  W  T  P  EP*/) 

600  F0RMAT!4X»2I3»11E11  »4) 

610  FOR  MAT ! 7E 15«7) 

***-»*****«************ 

READ  IN  I  HE  INPUT  DATA 

******+**•******■*■*** 

OPEN  ! UNI T=1 ♦ FI LE=* T APE  1  * »FORM  = ’UNFORMATTED *> 

OPEN  !UNIT=2»FILE=«  TAPE  2* ,FORM= *  UNFORMATTED » ) 

OPEN  !UNIT=3»FILE=* TAPE3* ) 

OPEN  !UNI T=4,FILE=* TAPE4* ) 

OPEN  !UNIT=8»FILE=*TAPE8*> 

OPEN  ! UNIT=9»FILE=*  TAPE 9* ) 


c 


READ!  5»10  0  )  REY,RL»PHIGH»PLOWtTEX  (l ) 

READ!5»103)  CXtCY*CFL»3ETA 

READ!  5  *11 3  >  ISTARTt ILEtIG 

READ!  5  »110  )  NE  MD » JL »KL tISHTHXf ISHTHY 


C 

c 

c 


c 

c 

c 

c 

c 


25 


c 


c 

c 

c 


N  1=1 

T  MS  1=0  .0 
T  MS  2=0 .  0 

READ  IN  THE  RESTART  OATA  FROM  PREVIOUS  RUNS 

##**lt**ir#'*#**ft**fr9*'4r*'£'#***+**!lr*'*Mr***'fr*'*  ***  it 

IF(ISTART.NE.O)  REAO(l)  Nl  » T  MSI  »T  MS  2  *  RHO  *RHOU  »RHQ  V  ,RH  CE  ♦ 
1  X,Y,2,EP»PEXtTEX 


READ  IN  PIPE  EXTERNAL  ENVIRONMENT  PRESSURE  AND  TEMP  DATA 

fc*Tr*************************-**********  +  ***-***«t*********** 

I  FdSTART.EQ.l  )  GO  TO  30 

DO  25  K=1 »KL 

PEX (K)=P HIGH* 144. 

T  EX ( K )=TEX ( 1 ) 

CONTINUE 

DO  2G  K=KL/2*1 »KL 
?EX!K)=PL0W*144 
CONTINUE 
CONTINUE 

GENERATING  THE  FREESTREAM  INFORMATION 

PINF=PEX( 1) 

T INF=TEX  <  1 ) 

RHOI NF=pI NF/TINF/RC 

RMUINF=2.27E-C8*SQRT!TINF**3)/!TINF-*-198.6) 

CINF=3QRT !GAMMA*RC*  TINF  ) 

VINF=R  EY*  RMUINF /RHO I NF /RL 

JLM=JL-1 
KLM=KL-1 
DET  A=1 •  3  /  JL  M 
DZET  A=l«  0 /KLM 

WRITE  OUT  THE  INPUT  AND  FLOW  FIELD  INFORMATION 
WRITE ( 4  »5  00  )  REYtRL 

WR I TE  !  4  *5 10  )  RHOINF ,VINF»CINF*TINFtPI NF » RMUINF 

WRl  T£ ( 4  »5  20  DETA  *0  2ET  A 

WRITE! 4»53G )  CFL»CX tCY ♦ BETA 

WRITE!  4t55Q  >  NEND  »JL»KL 

IF!8ETA*NE.0.0 >  WRI  TE !  6  »5S0  > 
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I NITIL IZATI ON  OF  ALL  DEPENDENT  VARIABLES 

**<►•**••**-******★*•******♦**•***■*'******•****** 

IF(ISTART.EQ.C)  CALL  PREAMB 


READ  IN  THE  GRID  POINTS  IN  CARTESIAN  FRAME 

***•**+************-*********  *******  ******* 

I F ( 1ST  ART  »EQ* 1 >  GO  TO  32 
DO  31  K=1»KL 
DO  31  J=1,JL 

1  REA  0(3*10  1)  KCKfJtl  )tY(K«J«l> 

2  CONTINUE 


INITIALIZE  THE  PREDICTOR  VARIABLES 

IF  (ISTART  .LQ.  0)  GO  TO  4 
DO  3  J=1»JL 
DO  3  K=1,KL 

RHOP  (  K  « J  «  1  )  =  RH0  (K  4  J •  1  ) 

RHOUPtK* Jtl  )=RH0U<K  *J*1) 

RHOVP  (  X  ?J  »1  )  =  RH0V(-<  tJ»l  ) 

R  HOEP  (  K  »J  »  1  )=RHOECK  ,J*1  ) 

3  CONTINUE 


4  CALL  TRANS 
CALL  TMSTEP 

DO  1  N=NI * NEND 


IF( <N/10)*10.NE.N>  GO  TC  5 

DETERMINE  THE  ALLOWABLE  TIME  STEP  SIZE  <DT  CFL ) 

*******************  **************************** 

CALL  TMSTEP 
CALL  EDDY 

CONTROL  THE  DATA  FLCU  AND  DIFFERENCE  OPERATORS 

*********************************  ******************** 

5  CALL  PAGE 

TMS2=TMS1 +DTL (2) 

T  MS 1=T  HS2 


1  CONTINUE 
C 
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C  WRITE  THE  RESTART  DATA  INTO  RESTART  TAPE 

NEND=NENO«-l 

WRITE (2)  NEND»TMS1,  TMS2 ,RHO, RHOU»RHOV  »RHOE»X, Y,Z,EP 
1  »PEX,TEX 

C  WRITE  OUT  THE  COMPUTED  FLOW  DATA 

C 

WRITE (4,5 80 )  N,DTL( 2) ,TMS2,THS1,T ,DTL(JLM> 

C 

C  SENERATING  THE  GRAPHICAL  DATA  FILE  ON  TAPE4 

C 

RRL=1.3/RL 
RUINF=1.Q /CINF 
C 

DO  20  K=1,KL 
C  WRI TE ( a ,590  ) 

DO  20  J=1,JL 
C 

RH=1.0/RHO(K,J,1 ) 

J=RHOU(K,J»ll*RH 
V=RH3V(K, J,1 )*RH 
W=U*RUINF 

T=(RHOE(K,J,l )*RH-T .5«<U**2+V**2 >  >*RCV 
3=RHO(K  ,J  ,1  >*  RC *T 
<8=X(K,J,1  l*RRL 
YB=Y(K,J,1)»RRL 

XM=SQRT((U**2«-V**2> /<GAHMA*RC*T  )  > 

C 

C  WR I TE ( a  ,60  T  )  J,K,X(K»J,1),Y(K,J,1),Y8,RH01K,J,1 », 

C  i  U, V,W,T,P,EP(K,J,1  ) 

C  WRITE (4  ,510 >  X(K,J, 1 ),Y (K  »J,1 ),U,V,P»T ,RHO(K,J,l) 

WRITEt  4, SiC )  XB/4  »Y  P  *U  »  V 
C 

20  CONTINUE 
C 

STOP 

END 
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SUBROUTINE  PREAM8 

COMMON  /  /  DETA.0ZETA»CV.RC.PR.PRT.GAMMA»EP(96.25»1) .DTL(25) » 

1  GAMMl.CFL.BETA.'JINF.VINF.RHOINF.CINF  .TINF.PINF.TW.DT  ,CX»CY  .L» 

2  JL.KL. JLM.KLM.ILE. I3MTHX . 1 SMTH Y »GA MM 2 ,RL . TMS1 
COMMON  /FLUET/ 

I  G21 ( 96. 2  )  *G22 (96  .2  )  .  G2  3(  96 .  2)  »  G25<96  »  2  )  »H  (96  ) 

COMMON  /F LUZT /  F3K  96)  »F32(96)  »F33(9  5)  ,F  25  (96) 

COMMON ./TV/  ETY(96.25.1)»ZTX(96*25.1) 

COMMON  /OEP/  RH0(96 .25.1) ,RHOU ( 96 .2 5. 1 )  ,RHOV ( 96. 2 5 , 1 ) . 
l  RH QE ( 9 6 »  25. 1 ) 

COMMON  /DEPP/  RH0P( 96.25.1) .RH0UP(96, 25.1) .RHOVPt 96.25.1) , 

1  RH  OEP (96.25.1) 

COMMON  /BV/  PEX(96>  .TEX  (96) 

SPECIFIED  INITIAL  CONDITIONS  FOR  THE  FLOW  FIELD 

REINF=RHOINF*(CV*TINF) 

DO  1  J=1»JL 
DO  1  K  =  1,KL 
RHO  (K »J»i )=RHOINF 
RHOP(K . J. l)=RHOINF 
R  HOU(K  ,J» 1)  =  0 .0 
RH  OUP(  K  ,  J  .1  )  =  0  .C 
RHOV(K.J.  1)  =  D  .C 
RHOVP(K,J.l)=C.C 
R  R  Q  E  (  K  ,J.1)=REINF 
RHOEP(K,J,l  )=REINF 
EP(  K  »J .  1  )=0  *0 
1  CONTINUE 

SPECIFIED  THE  NOSLIP  BOUNDARY  CONDITION  AND  SURFACE  TEMPERATUR 


RH  3WL=RH3I NF 
C 

DO  2  K  =  ILE»KL 
RHOEW=RHOWL*CV*TEX( K) 
RHO  (K»l»l)=RHOWL 
RHOU(K.l»l)=G.C 
RHOV(K,1,1)=0.0 
RHOE(K»l»l)=RHOEW 
RHOP  (K.l  ,1  )  =  RHOWL 
RHOUP(K»l,l)  =  e.r 
RHOVP(K,l  »1>=G.C 
R  HOEP (K  ,1  .1  )=RHOEW 
2  CONTINUE 
C 
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initialize;  the;  flu<  components 


00  3  J=l»2 
DO  3  K=itXL 


G21(K,d>=3.3 
S22(K»J)=0.0 
S23(X.J)=0.C 
G25(K»d)  =  0,C- 

3  CONTINUE 

DO  4  K=1,KL 
F31 (K ) =0 • 0 
F32  <  K  )  =0  »  0 
F33(K)=0.0 
F35(K)=0#0 

H(K>=0.0 

4  CONTINUE 

RETURN 

ENO 

SUBROUTINE  TMSTEP 

COMMON  /  /  0ETA»0ZETA,CVtRC»PR»PRT»GAMMAfEPC96,25»l) »DTL(25)t 

1  GAMMl.CFLfBETA.UINFt VINF.RHOINF,CINF,TlNF,PINF»TU,DT»CX,cr,Lt 

2  JL»KL,JLM»KLM»ILE» ISMTHX tlSHTHY* GAMM2 »RL»THS1 
COMMON  /TV/  ETY(9S, 25,1) *ZTX  ( 96 1 2  5,  1 ) 

COMMON  /QEP/  RH0<96,25il>»RH0U(96,25*l>,RH0V(9Sf25»l> » 

1  RHOE  C96f25»ll 

DIMENSION  UET (96) ,U  ZT<9  6) »DTC ( 9 6 ) ,U C 9 6 ) , V (96 ) ,CC9  6) 

SET  UP  INITIAL  CFL  TIME  STEP  VALUE 

DTC(1)=1.T 
SAMM3=GAMMA*GAMM1 
DTCFL=1.0 
RDET=1.0/DETA 
R0.Z  r=l.D/0ZETA 
C 

DO  1  J=2 » JLM 
DO  2  K=2  » KLM 
C 

RH=1.0/RH0(K,J»1> 

J(K)=RH0U(K»J»1  >*RH 
VCK)=RHOV(K»J»l  >*  RH 

C(K)  =  SQRT  <GAMM3*(RH0E<KfJ»l >*RH-0.5*<U<K>**2+VCK>**2> )) 

C 
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JET  (K  >=ETY(K  *J»1 >*V (K> 

'JZT(K)=ZTX(KtJ»i)*'J  (K) 

C 

DTC(K)=1.0/(A8S(JET  (  K) )  *R  CET  ABS  (UZT  C  K  >  )  »RDZT  + 

1  C(K)*SQRT((ZTX  (K  »J  »1  )*RDZT>**2+ 

2  CETY(K»J ,1 )*RDET>**2>) 

C 

2  CONTINUE 


PERFORM  THE  COMPARISON  AND  MODIFIED  THE  CFL  TIME  STEP 


DTMIN=DTC  Cl > 

00  3  K=2»KLM 

QTMIN=AMIN1(DTC(K)»  CTMIN) 
3  CONTINUE 


OTL ( J ) =DT  MIN*  CFL 

COMPARING  DTMIN  BETWEEN  ADJACENT  PLANES 
0TCFL=AMIN1(DTCFL»DTMIN) 

1  CONTINUE 


ADJUST  DT CFL  FOR  VISCCUS  EFFECT  (TRAIL  AND  ERROR) 

DT=CFL*DT  CFL 

RETURN 

END 

SUBROUTINE  BC 

COMMON  /  /  DETAtDZETA,CV»RCtPR,PRT, GAMMA, EP< 9 6 , 25» 1 > . OTL( 25 ) , 

1  GAMMlfCFL»BZTA,UlNFfVINF»RHOINF,CINF»TINF,PINF»TU,DT»CX,CY*L» 

2  JLtKL»JLM»KLM»ILE»ISMTHX»lSMTHY»GAMM2»RL»TMSl 
COMMON  /TV/  ETY(96,25,l)fZTX(96*25*l> 

COMMON  /DEP/  RH0(96,25,1)  »RH0U(9St25,l),RH0V(9S,25tl>  f 
I  RH  OE ( 9 6»  25»1 ) 

COMMON  / DEPP/  RHOPC 96 , 2 5 t 1 ) , RHOUP (9 6 » 2 5 » 1 > .RHOVPC 9S,2 5, 1 ) , 
l  RH  0EPC96  »25» 1 ) 

COMMON  /DV/  R(96f25*l)»U(96,25*l)#V(96»25»l)»W(i»l*l)t 
1  P(96»25*1)*T(96*25»1) 

COMMON  /9 V/  ?EX(96>  ,TEX  (96) 

COMMON  /OOF/  X(96»25»l) fY(9S*25,i) 

DIMENSION  PET (96) ZET A E( 25 ) »PZETAC ( 2 5 ) 


RG=1  . 

K2=KL/2+l 
CA=3.539E+9 
CB= 1*7315 E+ 8 
"  K  M=  48 
KN=49 

IF(L*EQ*2)  GO  TO  13 
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*  *  w  ★  *  *  *  *  * 


PREDICTOR  SWEEP 


DECODE  THE  PROBLEM  VARIABLES  TO  THE  PRIMATIVE  VARIABLES 

00  4  JV=1 t JL 
00  4  K=1»KL 

R<K  »JV  f 1)=RH0P(K» JV »1 ) 

J(KtJVtl) -RH0UP(Kf JVfi) /R(K»JV,I) 

V  ( K  » J V  » 1 ) =R HOVP <  K  *  J  V 1 1  >  /R  (K  »  JV  »  1  > 

T(K»JV  »1)  =  <?.H0EP(K»  JV»i  )/R(K  »JV»l)-3 . 5*(V  (K»JV  »1) 

1  ♦  U(K»JV»1)**2))/CV 

3(K,JV»1>=R<K,JV»1) "RC* TCK, JV»1) 

4  CONTI  VUE 


SUCTION  AND  INJECTION  BOUNDARY  CONDITIONS 

RR=1.3/RC 
DO  1  K=1,KL 
FUDSE=1.07 
RH  3UP ( K  »1  *1>  =  0  >0 

RH3P(K,1»1)=(P<K,2,  I  )  +  RHOVP(Ktl  »1  >*  (  V  (  K  »2  » 1  )- V  (K  ,  1  »1  >  >  > 

1  /(RC*T(K»1»1 )) 

C=P(K»1»1  >**2-PEX  (X  >**2 
01  =  1 

I  F(  C  .LT.  C)  DI=-1 
C=A9S(C) 

RH0VP(K*1 »1)=DI*<-CB+$QRT(CB**2+4.*CA*C> >/C2.*CA)* FUDGE 
RHOEP(Kil *  1  )  =  RH0P<K  ,1  ,1 >* (C V*TE X( K) *0 . 5* ( RHOVPt  K , 1 1 1 ) 

I  /RHOPCKfl,l  )>**2> 

1  CONTINUE 

DO  5  K=K2  »KL 

5  RH0EP(K,1 tl)  =  RHOP(K  »1 » 1  )* (C V*T ( K *2 1 1 ) ♦ 3 .5* ( RHOVP ( K 1 1 1 1 ) 

1  /RHO?(K  ,1»1  )) **2) 

ELIMINATE  THE  SUCTION  OF  BLOWING  AT  THE  CENTER  OF  THE  PIP 

R  H  3  VP ( KM  1 1 1 1 )  =  0 «5*R  HOVP (KM,lfl ) 

RHOVP <KN,1,1)=C  .3  *R  HOVP  ( Ki,  *1  ,1  ) 

FAR  FIELD  BOUNDARY  CONDITIONS 


DO  2  K=1 i KL 

RH0P(K»JL»l)=RH03(KfJLM»l ) 
RHQUP (K  *JL  » 1 >  =RHOUP <K»JLM»1> 
RHOVP(K» JL»1)=RH0VP  CK»JLH»1) 
C  RHOVPCK»JLM,1)=O.C 

RH0EP(K»JL»1)=RH0EP (K, JLHtl > 
2  CONTINUE 
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c 

C  T  HE  UPSTREAM  AND  DOWNSTREAM  BOUNDARY  CCNDITIONS 

C 

R  R  =  1  ./RC 
DO  3  J=lfJLM 

C  RHOP  (1 fJ fl )  =  RHOP(2 » J*i  )*T(2 »J»1  )/T Cl  »J»1 > 

RHOP  <1*J  tl  )=CRC2«J  «1  >*U(2»J«1  )**2-*-P(2»J»l))/RC/T(l  *Jfl  > 
RHOUP(l,J,l  )=  0,3 
RHOVPC1  ,J,1)=0  .C 

C  RHOEP (1 »J  » 1 )=  RHOPC 1 » J i 1 >*CV *T ( 2 » J » 1 > 

RHO EP (1 ,J ,1 )=RHOEP( 2,J»1 )*RHOP( 1 ♦ J» 1 ) /RHOPC  2  *  J» 1 ) 

C 

RH IP  (KL»J»1 >=RH0P(  KLM  ♦Jtl >*T ( KLM »J  *1  )  /T  (KL  »J  »1  ) 

C  RHJP(KL»J »1 >=(R(<LM  iJ»l  )*U  <  KLM  »  J  » 1 )  *  *2  (XL  M  *  J  »  1 )  >  /RC /T  C  K  LM  ,  J,  1  ) 

R  HOUP ( KL  t J  t 1)  =  : .0 
RHOVPCKLt J,1)=0 .0 

RHOEP (KL? Jtl )=RH3EP (KLM  » J *1 ) *R H CP CK L » J » 1 > /RHOP ( KLM » J » i > 

3  CONTINUE 
C 
C 

GO  TO  100 
C 

0  **  A  *  ***  »*•****•**  -r 

C  CORRECTOR  SWEEP 

C  *****■»***•***■*■*•» 

c 

C  DECODE  THE  PROBLEM  VAR  I A3LES  TO  THE  PERIMATIVE  VARIABLES 

C 

10  DO  14  JV=1»JL 
DO  14  K=1.KL 
R(K,JV»l)=RHO(K,JV» 1) 

U (K  ,JV .l)=RHOU(K, JV  il  )/R(K,JV»l> 

V(K,JV, l)=RHOV(K, JV  *l)/R(Kf JV»1> 

T (K »JV,l)  =  (RHOE(K,JVi 1)/R(K» JV» l>-0 .5*(V(K,JV» 1)^  *2 
1  +U(K,JV  *1  >**2>  )  /C  V 
P(K,JVil) =R(K»JV»1> *RC*T(K» JVi 1 > 

14  CONTINUE 

WR I  TEC  8*9)  TMS1 » 3(2 ♦ JLM,1 >,P(48, JLMtl ) ♦P(KLM»JLM,1 > 

9  - 0RMATC6E15.7) 

C 

C 

C  SUCTION  AND  INJECTION  BOUNDARY  CONDITION 

C 

RR=1.0/RC 
DO  11  K=1»KL 
FUDGE=1.0 7 
RHOU(K,l,  1)=0  .0 

RHO  (Ktl,l)=(P(Kf2tll*RH0V(K»ltl)*(V(K»2,l)-V(K*l  ,1)  )  ) 

1  /(RC*T(K»1*1>) 

C=P(K  *1  ,1  )  **2“PEX ( K  )  **  2 
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y  y  y  y  y,  yy  ,y  y,  y  jty^r  v  V  -v  if.ar.y  v,  v  y  v  v  v  v  v  ■>  v- y  ^ ,y.  ^  y  fe  yyy  > 


on  non  o  non  n  noonono  non 


DI  =  1 

I F ( C  .LT.  C)  DI=-1 
C=ABS(C> 

RH0V(K  t  1*1  )  =  DI*(-C3+3QRT(CB**2  +  4.*CA*C)  )  /  ( 2  .*  CA  )  *FU00 E 
RH0E(K tit 1)=RH0<K,1 ,1 >*CCV*TEX«K)+0.5*(RH0V(K tl*l > 

1  /RH9(Ktltl)>**2) 

11  CONTINUE 

DO  15  K=K2»KL 

15  RHQE(Ktltl  )  =  RH0<K»1  *1)-*  (C  V*  T  (  K  »2  » 1 )  *3  •  5*  ( RHOV  (  K  ,1  , 1 ) 

1  /RH0(Ktltl>>**2> 

ELIMINATE  THE  SUCTION  CF  BLOWING  IN  THE  MIDDLE  OF  THE  PIPE 

RH  OV  (KM  tl  »l)  =  C.5*RHCV(KM,ltI  ) 

RHOVCKNtl  »1)=C.C*RH0V(KN,1»1  > 

DO  17  K=KM,KM 

R.HDV(K  vl» 1>=2  .Q*RH3V (K  ,1*1 ) 


FAR  FIELD  BOUNOARY  CCNOITIONS 


DO  12  K=1,KL 

RHO  (K»JL,l)=RHO(K» JLM»1> 

RHOU(K  tJL  »1)=RH0U(K  tJLM  tl ) 

RH0V(K,JL»1)  =  RHCV(K  t JLMtl  ) 

RH0V(K.JLMtl)  =  Q  .3 
RHOE(KtJL»l)=RHOECK  iJLMtl) 

12  CONTINUE 

THE  UPSTREAM  AND  00 WNS T REAM  BOUNDARY  CONDITIONS 

RR=1 ./RC 
DO  13  J=ltJLM 

RHO  (1  tJtl)=RH0(2  tJ  tl  >*T(2tJtl  >  /T(l  tJtl  > 

RHO  (ltJ*l>  =  <RH0(2t  Jtl)*U<2t  J,l)**2-*-P(2tJtl))/RC/T(l  tJtl) 

RHOUd  tJtl)=  0*0 
RHOV(l  tJt  1)  =C  .0 

RHOEd  tJtl  >  =  RH0<  1 t Jt 1 >*CV*T(2 tJtl) 

RHO  Ed  tJtl  >=RHOE(2tvJtl  >*RH0(ltJtl  )/RH0(2tJtl) 

RHO  (KLtJtl >=RH0( KL M t J t 1 >+T ( KLM  tJtl »/T (KL  tJtl ) 

RHO  (KLtJtl  )=(RHO(KLMtJtl  )*  U  (  KLM  »  Jt  1  )* ’*2+ P  (KL  M  ,  J ,  1  >  >  /  RC /T  (  KLM  t  J  1 1  > 
RH  )U( KL  tJ  tl  >=0  .0 
RH0V(KLt J tl)=0.C 

RHDE(  KLtJtl  )  =  RHOE(KLM,Jtl  )*  RHO  (KLtJtl  )  /RHO  (KL  M  t  Jt  1  > 

13  CONTINUE 


100  RETURN 
END 
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3U3R3UTINE  TRANS 

COMMON  /  /  DETA  >  DZE  T  A  ,  C  V  *  RC  ♦  PR  tPRTt GAMMA »EP<9S»25* 1 >  »0TL(25)  , 

1  GAMM1  »CFLtBETA»JINF, VI\F,RHOINF,CINF,TINF,PINF,TW  ,DT  »CX,CY»L» 

2  JL»KL»JLM,KLMtlL£* ISMTHX »I  SMTHY  »  GA  MM2  .RLiTMSl 
COMMON  /TV/  ETY(96»25»l)iZTX(96t25»l) 

COMMON  /DOF/  X ( 9S ,2 f » 1 )  , Y (9 S 1 2 5 1 i > 

DIMENSION  YET ( 9  6?  30  )»DJ(96»3C)» 

1  XZT(96,30) »RDJ(9Gt 30 ) 

C 

RDET=1. 0/ (2.0*DETA) 

RDZT=1.0/C2.3*OZET4  > 

JLM2=JLM-1 

KLM2=KLM-1 

C 

C 

C  GENERATING  DX/DTEA  AND  DY/DTEA 

C 

C 

C  ONE-SIDE  DIFFERENCING  FCR  J=1 

C 

DO  101  KV=1,KL 

YET(KV»1)=(4.C*Y(  KV  »2»1  >-Y(KV*3»  D-3.0  *Y(KVtl  ,1 ))  *RDET 

101  CONTINUE 
C 

C  ONE-SIDE  DIFFERENCING  FCR  J  =  JL 

C 

DO  102  KV -1  » KL 

YET(KV,JL)=-(4.r*Y<  KV, JLM,1 ) -Y < KV ♦ JLM2 , 1  )-3  ,0 *Y ( K V  ,  JL  » 1 ) ) *RDET 

102  CONTINUE 
C 

C  CENTRAL  QIFFERENC IN  G  FOR  FIELD  POINTS 

C 

DO  103  JV -2  »  JLM 

JP=JV+1 

JM= JV- 1 

DO  104  KV— 1 »KL 

YET ( K V , JV )  =  (Y (KV»JP  ,1 >-Y(KVtJM,l) ) *R  DE  T 
104  CONTINUE 

103  CONTINUE 
C 

C  GENERATING  DX/DZETA  AND  DY/DZETA 

C 

C 

C  ONE-SIDE  DIFFERENCING  FOR  K=1 

C 

DO  221  JV  =1 »  JL 

XZTQ  ♦  JV>=(4.0*X<2,  JV»1  >-X<  3*  JV  ,  1 ) -3 . 0  *X  ( 1  »  JV  ,1  >  )  *ROZ  T 
201  CONTINUE 


o  o  o  o  non 


C  ONE-SIDE  DIFFERENCING  FCR  K=KL 

C 

DO  202  JV-1  ♦  JL 

X2T  (KLtJV)=-<4«C*X(  KLM»  JV,1  )-X(KLM2t  JV»  D-3.C*X(KLt  JV  »I ) )  *RDZT 

202  CONTINUE 

CENTRAL  DIFFERENCING  FCR  FIELD  POINTS 

DO  203  JV=1,JL 
DO  204  KV=2»KLM 
KP=KV+1 
KM=KV-1 

XZT(KV»JV)  =  CX(KP«JV  »1>-X(KM,  JVtl)  >*RD2T 
204  CONTINUE 

203  CONTINUE 


GENERATING  THE  METRICS 


CF  COORDINATES  TRANSFORMATION 


C 


C 

30  6 
30  5 
C 


DO  305  JV=1»JL 
DO  306  KV  =  1  *KL 

ZTXCKViJV  » 1 )  =1 •C/XZT<KV  *  JV  ) 
ETY<KV,JV  »1)  =  1.:/YET(KV»JV) 

CONTINUE 

CONTINUE 

RETURN 

END 
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SU9R0UTINE  PAGE 

COMMON  /  /  0ETA»D2ETAtCV»RC«PR»PRT» DA  MM A • EP < 96 ,25 » 1 >» DT L < 25 > , 

1  3AMM1  »CFL»BETA  #JI‘1F*VINF  »RHOINF  ,  Cl  MF  »T  INF  »PI,MF  »  TW  «OT  »CX,CY,L» 

2  JL,KL,JLM, KLM,ILE»ISMTHX,ISMTHY,GAMM2 »RL,TMSl 
COMMON  /DV/  R«96*25*l)*UC96*25fl)»V(96.25*l)»U(l»l»l>* 

1  P<96*25,1>  ,T{96»  25  ,1) 

COMMON.  /TV/  ETYOS,  25  ,1  )  }  2TX  (96 ,2  5, 1 ) 

COMMON  / OEP/  RH0(95f25,l>,RH0U<96,25,l>,RH0V<96»25,l>, 

1  RH  OE ( 96  »  25 » 1 ) 

COMMON  /DEPP/  RHOP( 96,25,1) ,RH0UP<96, 25,1) ,RHOVP< 96 ,2 5 , 1 > , 

1  R  HOEP (96,25,1) 

C 

C 

C  PREDICT  CR  SWEEP 

C  ***★*******+*** 

C 

L  =  1 
C 

C  GENERATING  THREE  PAGES  TEMPORAL  VECTOR  ARRAYS 

C 

DO  1  JV-1 ,  JL 
DO  1  KV=1#KL 
C 

* (KV» JVtl >=RHO  ( K V, JV  » 1  ) 

JCKV» JV*1 >=RHOU(KV, JV » 1  >/R( KV» JV,1> 

V(KV,JV,1 )-RHOV(KV»JV»l)/R(KV»JV»l> 

T(KV, JV,1 )=(RHOE(KV  »  JV ,1 > /R ( KV , JV , 1 ) -C «5*(U(KV«JV ,1>**2 
1  ♦V(KV,JV,1)**2))/CV 
PCKVtJVfl )=R(KV,JV* 1 )*RC*T (KV,JV,1) 

C 

1  CONTINUE 
C 

C 

C 

DO  2  J=2,JLM 
CALL  LET  A ( J) 

CALL  L2.ET A  (  J) 

CALL  SUM(J) 

2  CONTINUE 
C 

CALL  BC 
C 
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»t>  'Sfep  (.*  t.i 


%■ 


mmmmm 


.H  A. 


I.V  IJl'Kt'*. 


CORRECTOR  SWEEPS 


SENERATING  THREE  PAGES  TEMPORAL  VECTOR  ARRAYS 


DO  10  JV=  1 » «JL 
DO  10  <V=ltKL 


R(KV» JVtl)=RHOP  <KVfJV»l) 

J(KV» JV»1  )=RHOUP(KV  ♦JV»l)/RCKV»JVtl  ) 

V(KV*JVtl  )  =  RHOVP(KV,JVtl)/R(KVtvJV,l  ) 

T(KVt  JV  »1  )=(RHOEP(KVf  JV  ,1)/R(KV»  JVt  1>~3.5*<U(KV»JV»1>**2 
1  +V(KV»JV»1)**2))/CV 
=>(KV»  JV»1  )=R(KV»JV»  l)*RC*T(KV#JVfl) 


CONTINUE 


DO  11  J-2  »JLH 
CALL  LETAUI 
CALL  LZETA(J) 
CALL  SUM(J) 
CONTINUE 


CALL  BC 


RETURN 

ENO 
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SUBROUTINE:  LETA(J) 

COMMON  /  /  DETA»DZETA»CV»RCtPR»pRT»  GAHMA»Ep(96v25*l)»DTL(25)  « 

1  GA  MM1 iCFL  tBETA tUI NF » VI NF »RHOI NF i Cl NF , T I NF ,PI NF ♦ T . , OT *CX»CY  «L  » 

2  JL  »KLtJLM»KLM,ILE»  ISMT HX  »ISMTH Y  »  GAMM2  »RL  *TMS1 
COMMON  / FLUET/ 

1  321 ( 96 t 2 ) »G22(96  »2 ) » G2 2 (96 t 2) » G25( 96 t 2 )  ,H(96> 

COMMON  /DV/  R (96»  25  tl) »  U( 96*  25 »l)fV (96*25*1) »  W(  1 #1 *1) » 

1  P(96»25, 1> *T(96,25 .1) 

COMMON  /TV/  ETY(96,25,1),ZTX(96,25*1) 

COMMON  /OOF/  X(96»25»l>  *Y(96*25*1) 

DIMENSION  UET  (  9  6)  »UZT(9  6)  »VET ( 9 6) *VZT ( 96 ) * RMU ( 9 6>  » 

1  RLM9D ( 96 ) » SM U( 96 ) » RK (9 6 ) fTAUXX<96) ,TAUXR(96) » 
l  TAURRI96 ) *TX(96)  ?T Y ( 96  ) * TET ( 9 6 ) , TZ T ( 9 6 ) , QUDX ( 96)  , 

3  DV  DR ( 9  6 ) 

C 

RDET=1 .9/DETA 


RDZT=1.0/(2.0*DZETA> 

DO  1  M=1  *  2 

F  OR  WAR  0  &  BACKWARD  DIFFERENCING  FOR  PREDICTOR  &  CORRECTOR 


********** 
JV=L+M  +  J-2 
JM= J+M-2 
JP- JM  +1 

»  **  ******* 


DO  2  KV=2*KLM 


KP=KV+1 

KM=KV-1 

GENERATING  THE  SHEAR  STRESS  &  HEAT  FLUX  TERMS 

|JET(KV)  =  <  U(KV*JP*1)  -U(  KV*  JM*1>  >*RDET 
VET (KV)-(V(KV»JP*D -V<KV» JMyl) )*RDET 
TET(KV)=( T(KV*JP»i) -T(KV*JM*1> i*RDZT 

JZT(KV)=(U(KP*JV»1>-U( KH» JV»1) >+RDZT 
VZT(KV>  =  (V(KP*JV*1) -V(KM*JV  *1) )*RDZT 
TZT(KV>=( T(KP, JV,1> -T(KM,JV*1)  )*RDZT 

GENERATING  THE  VISCOSITY  COEFFS  &  HEAT  CONDUCTIVITY 

Rf1U(KV)=2.27E-0fc*SaRT(T(KV*  JV » 1 >**3 ) / ( T (KV » JV  »1> +  198.6) 
RK(KV)=GAMMA*CV-(RMU(KV>/PR+EP(KV,JVtl )/PRT) 
RMU(KV>=RMU(KV) *EP( KV»JV»1> 

RLMBD(KV) =-(2.2/3 *3 )*RMU(KV) 

SMU (KV ) -2 • G  »RMU (KV ) +RLM BD (K V ) 


CONTINUE 
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« 


c 

c 

c 


c 

c 

c 

c 


DO  3  KV-2  »  KLM 

RY=1.3/Y(KV*JV,1> 

DUQX(KV)=ZTX(KV, JV, 1 >*UZT (KV) 

0V0R(KV)=ETY(KV  ,  JV, 1 ) *VET (KV ) 

TAUXX('KV)=SMUCKV>*QUDXIKV  >+RLMSD(KV>*  (  J  (  KV  ,  JV  »  1 )  *  RY 
1  «-DVDR(KV ) >-?(KV» JV *1  ) 

TAURR(KV)=SMU(KV)*DVDRCKV>*TLM3D(KV>*  ( V(KV»JV»i  >*RY 
1  OUOX(XV)  )-?(KV,  JV  ,1) 

TAUXRCKV)  =  RMlfCKV) * ( ET Y ( KV , JV , i ) *UET < K V  )  * 

1  ZTX(KV,JV,1)*VZT(KV>> 

CONTINUE 

IF(JV.NE.J)  GO  TO  23 

DO  13  KV=  2  » KLM 

RY  =  1.0/Y(KV  »J,1  ) 

DUOX(KV)  =  ZTX(  KV,J  ,1  >*CU<KV-*-i  ,  J  ,  1  )-U(KV-l  ,J,1  >  >*RL’ZT 
DVOR(KV)  =  ETY(KV»J,l  >*( V(KV» J  +  1»:>“V(XV,J-1  ,1) >*(3 . 5-RDET) 

H(K V)=(5MU(KV )*V( KV ,J,1  )*RY+RLH9D(KV) * (DUDXCKV) 

1  <‘QVDR(KV))-P(KV»J,1))*RY 

10  CONTINUE 


C 

C 

C 

C 


C 

C 

C 

C 

C 


GENERATING  THE  HEAT  FLUX  TERMS 

20  00  A  KV=2,KLM 

TX(KV)=ZTX(KV,JV,  1>  *TZT(KV> 

TY  (KV)=ETY(KV,JV  ,1)  *TF.T  (KV) 

A  CONTINUE 

GENERATING  THE  FLUX  TERMS 

00  5  KV=2,KLM 


sM? 

ruy 


521 (KV,M)=R(KV» JV,1 >*V(KV, JV»1 >*Y(KV, JV,1> 
G22(KV»M)=G21(KV»M)  *U(  K  V»  JV  1 1 ) -TAUXR  (  K  V )  *  Y  (KV  «  JV  « 1 ) 

G23 (KV  »  M) =G21(KV,M> * V ( KV, JV , 1 ) -TAURR ( KV)* Y (KV ♦ JV, 1 ) 
G25(KV»M)=G21(KV»M)  =r(CV*T(KV,JV,l)*:  .5*(U(KV,  JV»1)**2* 

1  V(KV,JV,i)**2) )-(RK<KV)*TY(KV) 

2  ♦(U(KV»JV»1)*TAUXR  (KV ) +V (KV , JV » 1 >* T A URR (KV  ) ) ) f Y ( KV , J V , 1 ) 
CONTINUE 
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non  o  n  o  r>  r>  nnnnn 


C 

1  CONTINUE 
RETURN 
EMD 

SUBROUTINE  LZET A( J) 

COMMON  /  /  DETA»DZETA»CV»RC»PR»PRT»GAMMAtEP<96t25»i>»DTL<25)» 

1  GAMM1 tCFL»BETA,UINF»VINF»RHOINFtCINF, TINF,PINF#TW,DT,CX,CY,L, 

2  JL»KL»JLN»KLM» ILE» ISMTHX jISMTHY* GAMM2 tRLtTMSl 
COMMON  /FLUZT  /  F31  (  9  5  )  »F32  <  9  6  >  «F  330  6 )  »F  35  (96  ) 

COMMON  /O V/  R{96»25»1>*U<96,25»1>»V(9S»25,1),W(1»1,1), 

1  P  (9S»25»1)  i  T  (96*25  *1) 

COMMON  /TV/  ETY{9G»25»1>»ZTX(96*25»1) 

COMMON  /OOF/  X(9S»2 E,l>  ,Y(96|25»1) 

DIMENSION  UET(9S>  ,UZTC  9£>  »VET(96>  »VZT  (9o>  ,RMU<96>  , 

1  R  L  MB  0 ( 9  6 ) ♦SMU(96)#RK(96) ,TAUXX(96> tTAUXR(96> » 

2  TAURR<96) ,TX(96) »T  X { 96  ) »TET (9  6) »TZT ( 96 ) »DUDX ( 96 > , 

3  DV0RC96) 

C 

RDET=1.0/(2.3*DETA> 

RDZT=1 •O/OZET  A 
JP=J>1 
J  M= J-l 
C 

DO  1  K*=1,KLM 


F OR WARD  &  BACKWARD  DIFFERENCING  FOR  PREDICTOR  &  CORRECTOR 

KV=KK*l-l 
KM=KK 
KP=KM+l 

ft ★★ 

GENERATING  THE  SHEAR  STRESS  &  HEAT  FLUX  TERMS 

J ET C KK )=( U< KV * JP» 1 > *U(KVtJM,l) )*RDET 
VET  <KK>  =  (  V'lKVf  JP,1>  -VlKVtJM  tl)  )+RDET 
TET(KK)=( T(KV»UP,1)-T<KV, JM,1) )»RDET 

UZTCKK)  =  (U(KP  »Jil  J-U(KM  »J  *1  >>*ROZT 
VZT(KK)  =  (V(KP  »J,1 )-V<KM  fJtl ) )*RDZT 
TZTCKK)  =  (T(KP  »J»I )-T(KK  tU,l ) )*RDZT 

GENERATING  THE  VISCCSITY  COEFFS  &  MEAT  CONDUCTIVITY 

RMU(KK)=2«27E-G8*SQRT(T(KV»U»l)**3)/(T(KV»Jtl )*198.6> 
RK(KK)=SAMMA*CV-»(RMU(KK  )/PR*EPCKV  ,J*1  )/?RT) 

RMU(KK)=R MU(KK) +EP<  KV,J,I  ) 

RLM3D(KK) =-(2«0 /3,C )*RMU(KK) 

3MU(KK>=2.G*RMU(KK) ♦RLM8Q (KK> 

C 

V  1  CONTINUE 


30  2  KK-l »KL“ 


KV-KK  *L“1 


RY  =  1.0/Y(KV»Jtl> 


DUQX(KK)=ZTX(KV»J»1  )*UZT(KK) 
DVDR(KK)=ETY(KV»J»1  >*VET<KK> 


TAUXXCKK>=SMU<KK>*OUOX(KK>-*-RLMBD(KK)*(V(KV»Utl>*RY 

1  ♦3VDR(KK)  )-»(KVf  J*  E>  ,  #  <t  ,  ,  .  _v 

TAURR(KK)=SM'J<KK)*3VDR(KK)  +  R  LM80C  KK)*(V(KV,d,l)*RY 

1  ♦0UDX(KK> )-°<KV,J> 1 ) 

TAUXR(KK)=RMU<KK)*(£TY(KV»J»l>*UcT(KK)+ 

1  ZTX(KV  »J  jl)*VZT(KK  i  ) 


GENERATING  THE  HEAT  FLUX  TERMS 


TX(KK)=ZTX(KV  »J*1  >+TZT  (KK> 
TY(KK)=£TY(KV»J»1  >*TET  t  KK  ) 


CONTINUE 


GENERATING  THE  FLUX  TERMS 
30  3  KK=1  » KLM 
KV-  KK*L-1 

F31  ( KK  )  =R  (KV  »  J«1  >  *U  CKV  *d»  1 ) 

F32(KK)=F31(KK)^ J (K  y  »J  » l)-TAUXX(KK) 

F33 (KK)=F31 (KK) *V (K  V » J  1 1 >-TAUXR(KK> 
F35«KK)=F31«KKJ*CCV*TCKV»Jtl^3  »5*C  UC  KV  ♦  J  *1  >* * 2+ 

1  V(KV,J,1)**2)»-RK(KK)*TX(KK) 

2  -<U(KV*J*1  )*TAUXX{  KK)  +  VCKV»d*  I  )*TAUXR(KK>  ) 


CONTINUE 

RETURN 

END 


subroutine:  sumcj) 

COMMON  /  /  DETA»DZETA,CV*RC*PR*PRT»SAMMA,EP(96,25,1> »DTL<25), 

1  G  A  MMl »CF  L  *  BE  TA , J IN F * V I NF ,RHO I NF . Cl NF , T INF ,PI NF * T U ,DT *CX,CY ,Li 

2  JL,KL, JLM,KLM, ILE, I3MTHX  *1 SMT H Y » GA MM2  ,RL  »TMS1 
COMMON  /FLUET/ 

1  G21(9S*2) *G22(9S*2 >  ,G2  3(3S,2> *G?5(96,2)  »H(9&) 

COMMON  /FLUZT /  F31 C 96 > * F 32 < 96 ) , F 33 < 9 5 ) ,F 25 (9 & ) 

COMMON  /TV/  ETY<9S,25,1>,ZTX(96,25,1> 

COMMON.  /OEP/  RH0(96»25»1)»RH0U(96»25»1)»RHQV<96»25»1)* 

1  RHO£(9Sf 25*1) 

COMMON  /DEPP/  RHOP< 96,25,1) ,RH0UP<96, 23,1) ,RHOVP<  96,25,1)  , 

1  RHOEP (96*25,1) 

COMMON  /DAMP/  ADOK  96)  »  AD  02  (96)  ,  ADD3(9S)  *  A0D5  (9  6) 

COMMON  /DOF/  X < 96 ,2 5 , 1 )  ,  Y ( 9 5 , 2 5 , 1 ) 

IFCBETA.NE.C.O)  DT=DTL(J) 

RDET=1.0/DETA 
RDZT=1.3/0ZET  A 

IF(L.EQ.2)  GO  TO  10J 

PREDICT CR  SWEEPS 

****•  ************ 


00  1  KV=2,KLM 
K  M=KV -1 

RY=1.0/Y(KV,J,1  ) 

RHOPtKV  ,J,1  )=RHO(KV  ,J,1  )-0T*(( 

1  ♦ETY(KV,J,1)*RY*(G21(KV»2)-G21(KV»1) ) )*RDET+(ZTX CKV » J*1  )* 

2  (F31(KV)-F31(KM)  ))  -*RQZT) 

RHOUPCKV  ,  J*1  )=RHuU(  KV  ,J  *1  )-DT*<  C 

1  +ETY (XV  * J» 1 >*RY* (G22(KV»2)«G22vKV»l> ) > *RDET* ( Z TX ( KV , J , 1 > * 

2  (F32(KV)-F32(KM) ))*RDZT) 


C  ONTI NUE 
DO  2  KV=2,KLM 


KM=KV-1 

RY=1.0/YCKV,J*1) 

RHOVP (KV »J,1)=RH9V(KV»J»1  )-DT*<< 

1  +ETY (KV»J»1)*RY* CG23(KV»2)-G2  3<KV,1) ) ) • RDET+ ( Z TX ( KV , J , 1 ) * 

2  (F33(KV)-F33(KM) ))»RDZT*H(KV) > 

RHOEPt  KV»J»1)=RH0E(KV»J,1  )-DT*<  ( 

1  +ETY (KV ,J»1 >*R  Y* (G25(KV,2)-G25(KV*1) ) > *R DET* < ZTX ( KV , J *  1 )* 

2  (F35(KV)-F35(KM) )) *RDZT> 


CONTINUE 


o  o  o  n 


C 

I  F<  (IS -ITHX.EQ.C  >.A‘10.(  ISMTHY.EQ.O)  GO  TO  2CC 
C 

CALL  OAMPING(J) 

C 

30  10  KV=2tKLM 
C 

RHOP  (K.V  »  J,1  >=RH0P  (KV  » J» I ) ♦ ADDI (KV > 

RH0UP( KV, Jfl)=RH0UP ( KV , J, 1 )♦ ADD 2(KV ) 

fH3VP(KV»J,l)  -RH0VP  (  KV  ,  J,  1  >-*-AD03 ( KV  ) 

RH0EP(KV,J,1>=RH0EP (KV  , J»1)+ADD5(KV > 

1C  CONTINUE 
C 

GO  TO  200 

CORRECT  CR  SWEEPS 

100  00  3  KV=2»KLM 

C 

KM=KV-1 

RY=1.0/Y(KV,J,1 > 

C 

RH0(KV  »J* 1>=0 -5* (RH  C(KV  »J»1 >+RH0P(KV  »J  ,1  >-DT*(  ( 

1  ETY(KV,J,1)*RY*(G21(KV,2)-G21(KV,1))  >*,RDET 

2  *<  ZTX(KV,J,1 >*(F3i (KV>-F31(KM> )) 

3  *R  DZT  )  > 

C 

R-10U(KV,J,1)  =  C»5*(RHQU(KV ,J»l)+RHOUP(KV»J»l)-DT*( ( 

1  ETY(KV  »J,1  ) * R Y *  (  G2  2(KV ,2 )-G22(KV  ,1 > >  )*RDET 

2  ♦  (  ZTX  (  KV  ,J,1  )*(F32  (KV  )-F32  (  KM  > )  ) 

3  *R OZT ) ) 

C 

3  CONTINUE 
C 

00  4  KV=2,KLM 
C 

KM=KV -1 

RY  =  1.0/Y(KV»J»1  ) 

C 

RHOV( KV  » J  »  1  )  =  0  *5* (RHOV(KV  »J ,1 )  +  RHOVP ( KV , J» 1 )-DT*(  ( 

1  ETY(KV*J»1)*RY*(G2  2(KV»2>-G23CKV»1>>  )*.ROET 

2  ♦  ( ZTX(KV  ,J,1 )* (F33 (K V > -F33 ( KM >  > ) 

3  *RDZT+HC KV)) ) 

C 

RH0E(KV»J»1)=0  *5*  (RHOE  (  KV  ,J , 1 >  +  RH0EP ( K V  ,  J » 1 >-0T* (  ( 

1  ETY(KV,J,1>*RY*(G25(KV»2>-G25<KV»1>>  >*ROET 

2  *■(  ZTX(KV  ,  J  ,  1  )»  (F35  (KV)  -F  35 ( KM  )  )  ) 

3  *RDZT) ) 

C 

4  CONTINUE 
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C 

C 
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c 

c 

c 
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IF<  (ICiTHX.Ea*:  ).  ANC.(  ISMTHY.EQ.C  ))  GO  TO  2G0 

CALL  DAMP ING( J ) 

DO  20  KV=2»KLM 

R HO  (KVfJ»l)=RHO  (K V t J » 1 )+ADDl( KV) 

RHDU(KV  »J»1  )=RHOU  (K  V  *J  ♦  1  »+AD02  (K V ) 

RHOV(KV, J,l)=RHOV(KV,J,l >+ADD3(KV> 

RHOECKVtJ »l>=RH0E(KVtJ»l>+AD95(KV> 

20  CONTINUE 

200  RETURN 
END 

SUBROUTINE  DAMPING!  «J) 

COMMON  /  /  DETA,DZETA»CV,RC»PR»PRT»3AMMA,EP(96t25,l> ,DTL(25) » 

1  GAMM1»CFL«BETA»'JINF»  VINF»RH0INF,CI  MF  ,TINF,PINF,TW,DT,CX,CY,L, 

2  JLtKL»JLH,KLMf ILE» ISMTHX  *1 SMTHY » GA MM2 ,RL »TMS1 
COMMON  /DEP/  RH0(96»25*l)»RH0U(96»25»i)»RH0V(96t25*l)» 

I  RHOE  C96»  25»1 ) 

COMMON  /DEPP/  RHQP(96»25»l)»RHOUP(9S»25»l)»RHOVP(96t25»l)t 
1  RHO£P(  96 1  25*  1 ) 

COMMON  /DAMP/  ADD1 ( 96 ) t ADD2 ( 96 ) , ADD 3< 9 6) > ADDS ( 96 ) 

COMMON  /OV/  R<96»25»l)»U(96»25»l)»V(96f25»l)»y(l»I,l)* 

1  PC9Sf25,l)»T(96»25fl) 

COMMON  /TV/  ETY(96t25,l  >  »  ZT X  ( 96 , 2  5»  1  > 

DIMENSION  AODG1 (96)  ,A0DG2 (9 6 > , AD0G3 ( 9 6 > , 

2  ADDG5(96)»ADDHl(96)fAD0H2(96)*ADDH3(96)  , 

3  AD  OH  5(96)  »PD  (9  6»  2) 

<LM2=KLM-1 
GAMMR=GAMMA*RC 
R  DET=1 «0 /OETA 
RDZT  =  1 »0 /DZET  A 

SET  DAMPING  TERMS  TO  ZERO  FOR  END  POINTS 

DO  1  KV=1»KL 

AQDG1 (KV) =C  *0 
ADDG2(KV)=C.O 
ADDG3(KV )=0  .0 
AODG5 ( KV ) =0 .3 

AOQH1 (KV)=0 .0 
ADDH2 ( KV) =C .0 
ADDH3 ( KV ) =0  *0 
ADDH5 ( KV ) =0 ,0 

CONTINUE 
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***  GENERATIN'.  AO C G  ★  ** 

IF( (J.LE .2) .OR  .( J. GE. JLM> )  GO  TO  230 

00  110  M=  1 »  2 

JV=J+H>L-3 
JP=JV+1 
JM=JV- 1 


00  123  KV=ltKL 

P0<  KV»^)  =  CY»{  A35(P(  KV»J°»  1)  -2 .0 +P  ( <V  »  J  V  »1>* 

1  P(  KV» JMt 1) )/(P(KVt  JP» :>  +  2.3*P(KV» JV ,1 )*P  (KVt JH  »1 )  )  >* 

2  <A8S(*ETYCKV,JV,1) * V ( K V, JV , 1 ) ) + 

3  S3RT(SAMMP+T(KVt JV  »D*  (ETY  (KV*JV«i>**2)  )> 

123  CONTINUE 

110  CONTINUE 

IF (L«E3«2 )  GO  TO  143 
PREDICTOR 

JP=J+1 

JM=J-1 

C 

DO  130  KV=1»KL 
C 

ADDG1(KV)=DT*(PD(KV  »  2 )  *  (RHO  (K V » JP, 1 > -RHO  CKV»Jtl)>- 
1  PO(KV»l>* (RHO  (KV»Jtl)-RHO  ( K V i JM » 1 ) > >* ROET 
ADDG2(KV)=DT*(PD(KV  ; 2 ) * CRHOUCK V » JP» 1 > -RHOU CKV  ♦  J ,1  ))- 
1  PD (KV ♦ 1) ♦(RHOU (  K  V  »  J» 1  >-RHOU(K V? JM,1 > ) >*RDET 
4Q0G3(KV>=DT*(PD(KV  , 2 ) * (R HOV ( KV » JP > 1 > - RHOV (KV  »J»1  ))- 
1  PD(KV»1> •<RHOV(KVt Jtl  )-RHOV(KV »JMT1 ) ) ) *RDET 
ADDG5(KV)=DT*(PD(KV ,2) * (RHOE( KV » JP» 1 ) -RHOE (KV  »J»1  ) )- 
1  PD(KV,15*(RHOE(KV»J*l>-RHOE(KV»JM»l) > )»RDET 
C 

130  CONTINUE 

S 

c 

3  0  TO  23  0 
C 
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C  CORRECTOR 

140  JP  =  J-*-l 
JM=  J-l 
C 

30  150  KV=ltKL 
C 

A0DG1(KV)=DT*<PD(KV ,2)* (RHOP  < KV, JP »1 J-RHOP  (KV»J»1>>- 
1  PD (KV  » 1 >*  (RHOP  (KV  ,J,l>-RHOP  (  KV»JM  ,1  ) )  )*RDET 
AD0G2(-KV)=DT*<PD<KV  , 2 > * <RH0UP< K V , JP , 1 > -RH0UP< KV  ,  J  ,  i > >  - 
1  PQ ( KV  » 1  )* (RHOUPt  KV  * J ♦ 1 >-RHOUP < KV » JM » 1 ) > >*RDET 
ADDG3(KV)=DT*(PD(KV  ,2>* (RHO VP( KV , JP »1 J-RHOVPC  KV»J  ,1 ))- 
1  PD (KV » 1 ) *<RHOVP(  KV ,J,  1 >-RHOVP ( KV , JM » 1 ) ) >*RDET 
ADDG5(KV>  =  0T* (PD(KV , 2 ) * (R HO EP ( KV t JP  » 1 >-RHOEP<  KV  »J  *1 >> - 
1  PD(KVtl)*<RHOEP(KV »J»1 )-RHOEP ( KV , JM ♦ 1 ) ) >*PDET 
C 

150  CONTINUE 
C 
C 

C  ***  GENERATING  ADDH  *** 

C 

200  30  210  M=l,2 

DO  220  K=3,KLM2 
C 

K V=K+  M+L- 3 
KP=KV+1 
KM=KV-1 
C 

^ D( K, M) =CX* <ABS<P<KP» Jt  1 ) -2 .0 *P < K V* J, 1  )  ♦ 

1  P(KM,J,1  ))/<P<KP  ,J  » 1  >*2.0*P(KV  »J»1  >  +  P(KH,J,l  >>  >* 

2  <ABS(ZTX(KV,J,1)*U(KV,J,1>)+ 

3  SQRT(GAMMR*T(KV, J, 1)*<  ZTX<  KV  »  J  ,  1  >**2  > >> 

C 

220  {.  -NTINUE 

210  CONTINUE 
C 

I F  <L  »EQ« 2  )  GO  TO  24  1 
C 

C  PREDICTOR 

C 

DO  230  KV  =3t KLM2 
C 

KP=KV+1 

KM=KV-1 

C 

AQDH1(KV)-DT*<P0(KV »2)* (RHO  <KP,J,1)-RH0  (KV»J»1>>- 
1  PO (KV  *  1  )*  (RHO  (KV  ,  J,  1  )-RHO  (KM , J ,1 > >  >*RDZT 
ADDH2(KV)=DT*  (PD(KV  ,2)'*-  <RHOU(KP,J,l  J-RHOU ( KV , J , 1 > ) - 
1  PD(KV,1>* <RH0U<KV»J,1  )-RHOU(KM , J  ,1 ) )  )*RDZT 
ADDH3(KV)=0T*(PD(KV  , 2) *  <R HO V( KP  , J , 1 ) -R HOV (KV , J , 1 > ) - 
1  PD(KV,1) *(RH0V(KV  » J  » 1  ) -RHOV (KM,J,1)>  )*RDZT 
ADDH5(KV)  =  0T*(PD(KV ,2 ) * (RHO E ( KP  , J, 1 ) -RHOE  (KV  ♦  J  ,1  )  )  - 
1  PD(KV»l)*(RHOF(KV»J»l)-RHOE(KM»J»l>)  )*RDZT 
C 

230  CONTINUE 
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C 

GO  TO  330 

CORRECTOR 

240  00  250  KV=3,KLM2 

KP=KV  +1 
KM=KV-1 

A00H1 (KV)  =  DT*(P0( KV  ,2)*  (RH0P  ( KP * J* 1 ) -RHCP  (KV*J*1>> 
1  PD  ( KV  *1 )  ♦  (RHOP  (KV  ,J*1 J-RHOP  (  KM  ,J  *1  )  >  )*RDZT 
A00H2(KV)=0T*(P0(KV  ,2>*(RH0UP(KP,J, 1)-RH0UP(KV,J,1 )) 
1  PD ( KV  ,  1  )*  (RHOUP(  KV  ,J,1  J-RHOUP  (  KM  »J  *1  >) >*RDZT 
A0DH3(KV)=DT*(PD(KV  »2) * (RHOVP< KP  , J, 1 ) -RH0VP( KV  ♦  J *  1  )> 
1  P0(KV»1)*  (RHOVPtKV  tJ»l  >-RHOVP(KM»J*l  )>  )*RDZT 
AQDH5(KV)=DT*(PD(KV ,2)* (RH0EP( KP  ,  J* 1 > -RH0EP( KV » J* 1  )) 
1  PD(KV*l)*(RHO£P(KV  *J  1 1  )-RHOEP  (  KM  ,  J  ,1  )  )  >*RDZT 

250  CONTINUE 


SUMMING  THE  ARTIFICIAL  VISCOSITY-LIKE  TERMS 

300  00  310  KV=1»KL 

C 

AOOl  (  KV)  =  ISMTHX*  ADD  Gli  SMTHY*ADDH1(KV> 

ADD2(KV>=ISMTHX*AOQG2(KV)+ISMTHY*ADOH2(KV) 
A003(KV)=ISMTHX*ADDG3(KV)+ISMTHY*AD0H3(KV) 
ADD5(KV)=ISMTHX*ADDG5(KV> ♦! SMTHY* ADOH 5 ( KV ) 

C 

310  CONTINUE 
C 

RETURN 

END 

SU3R OUT INE  EDDY 

COMMON  /  /  DETA,DZETA,CV,RC»PR»PRT,GAMMA,EP(96,25,1)*QTL(25> . 

1  GAMM1 ,CFL,BETA*UINF,VINF,RHOINF,CINF»TlNF,PlNF,TW,DT,CX,CY*L, 

2  JL ,KL ♦ JLM,KLM, ILE, ISMTHX  ,1  SMTHY  ,  GAMM  2  ,RL  ,  TMSi 
COMMON  /  OEP/  RH0(9S,25,1>  ,RHOU  (  96  ,25 , 1 )  ,RHOV  (  96 , 2  5 , 1  >  , 

1  RH  3E (96*  25*1 ) 

COMMON  /DOF/  X ( 96 *2 5 , 1 )  ,Y (9 6* 2 5 *  1 ) 

COMMON  /TV/  ETY(96,25,1)»ZTX(96,25,1> 

COMMON  /OV/  R(96*25  »l)  ,U(96 *  25 , 1 ) »V ( 9 6 » 25, 1 > , V( 1  *  1  »1)» 

1  P(95,25*1)*T(96,25*1) 

DIMENSION  F(96,30 ), JMAX(96) , 0MEGAC96 » 3G ) ,SL(96*30 ) » 

1  EPMAX  (96  )  *IJET(56  *3  j  )  *  VET  <9  6  *30  )  ,UZT  (  96*  30  )  *VZT  (9  6,30  )  i 

2  APLUS (96  ) 

C 

RMU=2.270E-C8*SQRT( TINF**3)/(T INF+198 • 6> 

X3=KL/2 
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DO  3  J=1»JL 
DO  3  K=1»KL 
RR=1.0/RHO(K,J,1 > 

J{K*J,i)  =  RHOU(K»Jfl  )  *RR 
V  <K  »J»1  )=RH0V(K  )J»1  )*RR 

continue; 

SENERATING  THE  DERIVATIVES  OF  VELOCITY 

RDET=1.9/(2.0*DETA> 

RQZT=1»0/(2»Q*OZETA> 

DO  A  J=2»JLM 
DO  A  K=2»KLH 

JET ( K  »  J)= (Ut  K*  J+l il )“U<K*J“1 »1 > )*RDET 
VET<K,J)=(V(XtJ+l  »1  )-V(K*J-l»l)>*RDET 
JZr {KtJ)  =  (U<X+l »Jtl  )-U(K-l»J»l  ))*RDZT 
VZT(K»J)=  <V  ( K  +  l  »J»1  )-V(X«l»J  »1  ))*RDZT 
CONTINUE 

GENERATING  THE  VORTICITY  DISTRIBUTION 

DO  5  J-2»  JLM 
DO  5  K=2tKLM 
0MEGA(K,.J)=SQRT< 

1  (ZTX(K,J,1)*VZT(K» J) 

2  -ETY<K,Jtl>*UET<K»vl>>**2> 

CONTINUE 

GENERATING  THE  SCALING  LEAGTH 

DO  f3  J  =  l»  JL 
DO  S  K=I *  KL 

3L(K»  J)=3QRT(  <Y<<  »J»1)-Y(K»1*1  >  >**2+  <X(K  *  J,1  )-X  (K  yl  *1  >  >  **2> 
CONTINUE 

GENERATING  THE  SJRFACE  VORTICITY  AND  THE  1NJECTI0N/3UCT ICN  A  + 

RDET=1.Q/0ETA 

DO  7  K=2?KLH 

OMEGA <Ktl >=SQRT(1-ETY« K  »1 ,1  )* 

1  <UtK»2»l  )-UCK,l*l>  >  )**2>*RDET 
TAU  =  RMU*OMEGA(K  ,1  > 

UTA  U=SQRT  (TAU/RHO  (K  ,1  ,1  )) 

0P0X=«PCK*1*1*1 J-PC K-l tl» 1))*RDZT*ZTX CK»1,1) 

3PLUS=RMU/RH0<K»1  ,1  )**2  /UTAU**3*DP0X 
VPLUS~-V(K  » 1  )  /JT A  U 
APLUSCK)'26.0 
CONTINUE 
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GENERATING  THE  INNER  VISCOSITY  COEFFICIENT 

00  3  J=2,JIM 
00  8  K=2»KLM 

SUPRESS  THE  UNDERFLOW  M ESS AGE  FROM  EXPONENTIAL  CALCULATIONS 

YP3=SQRT(RH0<K»1»1  > ♦OMEGAtK ,1 ) /RMU) *S L < K » J > /APLUS ( K > 

Y  PB=A  MINI { YP8  *  50 • 0 ) 

EP( K* J»1 >=RH0(K  »J»1  )*(D.40*SL(K, J>*<1 . :-EXP(-YP3) ) )* * 2* OM EGA ( K , J ) 
p  (K  »J)=SL  (KiJ>* (1 .9  -EXP  (-YPB  ))■*  OMEGA  (K  »J) 

8  CONTINUE 

THE  3ALDW IN-LOMAX  MODEL  WITH  INTERMITTENT  CORRECTION 
SEARCH  THE  MAX.  EDDY  VISCOSITY  COEFF.  FOR  A  J  ARRAY 


DO  9  K=2  » KLM 
C 

DU 2 MAX =9. 0 
FMAX=0.0 
C 

DO  10  J=2,JLM 
C 

QU2-UCK  ,J,1  )**2*V(K  iJtl  >**2 
DU2MAX=AMAX1(DU2»0U2MAX> 

FMAX=AMAXl(F(Ktd) tF  MAX ) 

C 

10  CONTINUE 
C 

JMAX(K>=0 
DO  40  J=2»JLM 
I  F(  JM A  X  C  K ) *  N£ • fi  )  GO  TO  40 
IF(F(K»J) .EQ.FMAX )  JMAX(K)=J 

40  CONTINUE 
C 

F1=1.0E>20 

FWAKE=SL(K»JMAX(K))*F(K»JMAx(K)) 

IF  (F(K» JMAXCK)  )  «E  Q.  0.0)  GO  TO  41 
F1=0.25*SLCK» JMAX<K ) >* CU2MAX /F( K i JMAX ( K ) ) 

41  FUAKE=AMIN1 CFUAKE,F 1) 
EPMAX(K)=0.CS'36*RH0(K»  JHAX(K)*1  )*FWAKE 

C 

9  CONTINUE 
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SET  THE  MAX  EDOY  VISCOSITY  FOR  THE  OUTER  REGI  C'i 
DO  11  K=2»KLM 


ISUTH=0 


XXTT=1.00 

<BAR2=((X(K»1»1 >-XXTT)/3.10 >**2 
DO  12  J=2  t JLM 


I F( EP  M  A  X  ( K).LE.E?(K  «Jil  ))  ISWTH=1 

IFCISWTH.EQ.l)  E3  CK ,J»1  )  =  EPMAX ( K) *RH3 C K , J ,1 ) /RH0( K » JM AX ( K ) » 1 1 
“P(K»J»1 )=EdCK , J»1 ) /Cl. 3+5*5*<C  •3*SL(X»J)/SL(K» JMAX(K))  )**6) 

ACCOUNT  FOR  THE  TRANSITION  FROM  LAMINAR  TO  TURBULENT  FLOW 

EP (K,Jjl )=EPCK* J»l) *C 1.3-EXP <-0.412*XBAR2>) 

IF  (<<K»J«1>  .LT.  X  XTT  )  EP< K »J » 1  )=0 .0 

12  CONTINUE 
11  CONTINUE 

COMPLETE  THE  EDDY  VISCOSITY  MATRIX 

EP( It JLM,1)=£PC2» JLM»1> 

EP(KLt JLMtl JrEPIKLM tJLMtl  ) 

C 

DO  20  K=ltKL 
EPCKtltl)=0  .0 

20  EP(KtJLtl )  =  EP(KtJLM  il) 

C 

DO  30  J=ltJL 
EP<KLtJ*l  )=EP(KLMtJ  .1  ) 

30  EP(l»Jtl)=EP(2tUt 1) 

C 

RETURN 

END 
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APPENDIX  C:  Raw  Numerical  Friction  Coefficient  Data 

This  Appendix  contains  the  raw  friction  coefficient 
data  discussed  in  Chapter  VI.  The  table  of  data  ccnt&i  the 
following  information  1)  a*<al  location  (Z/L),  2)  local 
axial  Reynolds  number  (RE),  3)  friction  coefficient  (F),  4) 
Hach  number  squared  (MA2),  5)  blowing  parameter  (V/U),  and 
6)  the  momentum  flux  factor  (PHI).  The  pipe  size  and 
external  manifold  pressures  can  be  determined  from  the  table 
headings.  The  radial  Reynolds  number  at  any  location  can  oe 
found  by  multiplying  the  location's  axial  Reynolds  number 
times  the  location's  blowing  parameter. 


PIPE  LENGTH  =  2  FEET,  INSIOE  CIAMETEft  =  2  INCHES 
SOURCE  PRESSURE  =  30  FSIA,  SINK  PRESSURE  =  1 S  PSIA 


I/L 

. 10536-01 
,21052-01 
,31588-01 
.42116-01 

. 52536-01 

•  S3  166-01 
.73586-01 
. 84216-01 
. 94746-01 

< 10536+09 
.11536+00 
.22636+00 
• 1368E+00 
. 1474E+00 

•1 579S+00 
. 168AE+00 

•  17  39E  +  00 
.1895E+00 
. 2000 E +00 

,21QSE+00 
.22112+00 
-2316E+C0 
. 24  21E  +  00 

•  25  26E  +  00 

. 2632E+00 
.27372+00 
.2842E+00 
•2947E+00 
. 3053E+00 

. 31 58c +00 
.32632+00 
. 3363E+00 
. 34  74  c  +  CO 
.35756+00 

• 3684E+00 
. J789E+00 
.33953+00 
.40005+00 
.4105E+00 

•4211E+00 
• A316E+00 
.4421E+0Q 
.45262+00 
.4632E+00 

•4737E+00 

,48426+00 

.4947E+00 


RE 

.2700E+04 
•5541E+04 
.87762+04 
• 1227E+05 

• 1604E+05 
. 2016E+05 
.24646+05 

•  2953E+  05 
.3483E+C5 

.40722+05 
.4717E  05 
. 53672+05 
.6014E+05 
. 6663E+05 

•  7309E-O5 
.7960E+05 
. 8606E+05 
•9261E+05 
.9912E+05 

. 10570+06 
.11225+06 
• 11S9E+06 
.12542+06 
. 1321 E+06 

. 13S7E+06 
.14542+06 
. 1520E+06 
.15882+06 
.  16£4E-r06 

•1723E+06 
• 1788E+06 
.18582+06 
.19232+06 
.1995E+06 

.20602+06 

•  2 133E+  06 
.2197E+C6 
• 2272E+06 
. 2336E+06 

.2414E+06 
. 2476E+06 
.2557E+06 
.26162+06 
. 2702E+06 

.2757E+06 
• 2848E+06 
.2898E+06 


F 

.10472-01 

.69548-02 

.2340E-02 

.18022-02 

.138  +  2-02 
.95282-03 
. 85832-03 
. 6903E-03 
.57352-03 

.4965E-03 
.4294E-03 
•3748E-03 
• 3342E-03 
.30UE-03 

.27442-03 
.252GF-03 
. 2333E-03 
. 2169E-03 
.20262-03 

. 1903E-03 
.1792E-0? 
. 1693E-03 
. 16046-03 
. 15  25E-03 

.1452E-C3 
.1387E-03 
•1326E-03 
. 1273E-03 
, 1221 E- 03 

. 1175 E- 03 
. 11 30E-03 
,10916-03 
.1052E-03 
.10186-03 

•9R29E-04 
.S550E-04 
.92  23E-04 
. 8989E-04 
. 8084E-04 

• 8492E-0+ 
. S208E-04 
.3051E-04 
.7799E-04 
.  7670E-04 

•7570E-04 

.76902-04 

.783SE-04 


MA2 

■,21196-03 
. 9101E-05 
.2254E-04 
.4405E-04 

•7519E-04 
.11916-03 
. 1779E-03 
.25586-02 
.35676-03 

.43648-03 
,65276-03 
.84506-03 
.10615—02 
. 1304E-02 

.15702-02 
.1864E-02 
. 2182E-02 
. 2529E-02 
. 2893E-02 

.33006-02 
.37256-02 
.4182E-02 
.4651E-02 
. 5177E-02 

-571 3E-02 
.6240E-Q2 
.6883E-02 
.7525E-02 
.817  6E-02 

.8886E-02 
.9596E-02 
.10386-01 
. 11156-01 
.12036-01 

.1235E-01 
.1730E-01 
. 1+69E-01 
.35746-01 
.1669E-01 

.  1785E-01 
.18846-01 
.20146-01 
•  2117E-01 
.  2261E-01 

.  2366E-01 
.  2526E-01 
. 2625E-01 


V/U 

-.4319E+01 
-.2077E+01 
-. 1323E+01 
-.S466E+00 

-.7248E+00 
-.57576+00 
-.4713E+00 
-.3932E+00 
-. 3332E+00 

-. 2856E+00 
-.24682+00 
-.21726+00 
-. 1541E+00 
-.  17  54E  +  00 

*>.  1601E+00 
-. 1472E+00 
-.13646+00 
-.12692+00 
-. 1138E+00 

-. 1117E+00 
-.1C54E+00 
-.95762-01 
-.S480E-01 
-.SC23E-01 

-r  8621E-01 
-.8243E-01 
-.  7512E-C1 
7594E-01 
-.73182-01 

-.70468-01 

-.6814E-01 

-.6578E-01 

-.63816-01 

-.6173E-01 

-.6006E-01 
-.  58  20E-01 
-.  5679E-01 
-.  5509E-01 
-.53916-01 

-.  5234E-01 
-.51376-01 
-.4339E-01 
-.  49 12E-01 
-.47706-01 

-.47146-01 
-.  4576E-01 
-.2271E-01 


PHI 

.1271E+01 

.12326+01 

.12356+01 

.12306+01 

•1229E+01 
.12296+01 
.12286+01 
. 1229E+01 
.12296+01 

.12306+01 

.12306+01 

.12306+01 

.12316+01 

.1231E+01 

.12316+01 
.12316+01 
.1231E+01 
.12316+01 
.  1 23 1 E+  01 

. 1 231 E+  01 
.1231E+01 
.12306+01 
.12306+01 
. 1 230E+  01 

. 1230E+01 
.12306+01 
.12306+01 
.12296+01 
.12306+01 

.12296+01 
.12296+01 
.1229E+01 
. 12296*01 
.12286+01 

.1229E+01 

.12286+01 

.1228E+01 

.12276+01 

•1228E+01 

.12276+01 
.12276+01 
.12266+01 
.  1 226E  +  01 
.12256+01 

.2224E+01 

.12186+01 

.1214E+01 


•  51 5  3E  +  0  0 

.52636+00 

.53686+00 

.54746+00 

.55796+00 

.56346+00 

.57896+00 

.58956+00 

•60006+00 

.61056+00 

•6211E+00 

•63166+00 
.6421E+00 
.6526E+00 
. 6632E+00 
.6737E+00 

.63426+00 

•6947E+00 

.70536+00 

•71S8E+00 

•72636+00 

.73686+00 
.74746+00 
.7S79E+00 
•76346+00 
.77  896+00 

• 78956+00 
. 80006+00 
• 81056+00 
.8211E+00 
•83166+00 

. 84216+00 
.8526E+00 
.  86326+00 
.8737E+00 
.88426+00 

•  89476+00 
•90536+00 
.91586+00 
.92636+00 
.9368E+00 

•9474E+00 
•9579E+00 
.9684E+00 
.9789E+00 
• S895E+00 


.2893E+06 

.2798E+06 
.2754E+06 
. 2664E+06 
.2614E+06 
. 2530E+06 

. 2475E+06 
. 2395E+06 
.2338E+06 
.22616+06 
.2201E+06 

. 2127E+06 
.20646+06 
. 1991E+06 
.1927E+06 
.18566+06 

.17906+06 

.17206+06 

.16546+06 

.15846+06 

.15166+06 

.14466+06 

.13796+06 

.13096+06 

.1242E+06 

.11736+06 

.11066+06 
.10386+06 
. 9716E+05 
.90226+05 
.83286+05 

.76516+05 
•  6992E  +  05 
.63026+05 
.56786+05 
.5143E+05 

.45436+05 

.39196+05 

.33636+05 

.28146+05 

.22796+05 

.17486+05 

.12456+05 

.78056+04 

.35916+04 

.85926+03 


.94246-04 

.30156-02 

.49376-02 

.81176-02 

.1209E-01 

.16476-01 

.20866-01 
.24996-01 
.2873E-01 
.32346-01 
.  3550E-01 

.33436-01 
•41S5E-01 
.  4486E-01 
.47776-01 
.50516-01 

.53426-01 
.56456-01 
.59526-01 
• 6263E-01 
<.6544  6-01 

.69216-01 
.74166-01 
.78896-01 
. 8201 E-01 
.84986-01 

.88526-01 
.93306-01 
.95836-01 
.86806-01 
.8305 E-01 

.90896-01 

.7023E-01 

.7703E-02 

.59836-02 

•6312E-01 

— . 16356—01 
-.16296+00 
-. 2232E+00 
-.32846+00 
-.3352E+00 

.61536+00 

.3298E+01 

-.33696+02 

-.23426+03 

-.63946+03 


.26146-01 

. 2431E-01 
. 2357E-01 
.21926-01 
.21096-01 
. 1 96SE-01 

,18806-01 
.17536-01 
.16686-01 
. 15556-01 
.14726-01 

. 1370E-01 
.12896-01 
.11976-01 
.11206-01 
. 1036E-01 

.9632E-02 
. 8868E-02 
.81896-02 
.74956-02 
•  6863E-02 

.62326-02 

.56596-02 

.50956-02 

.4580E-02 

.40796-02 

.36226-02 
•3179E-02 
.  2776E-02 
.24006-02 
.20396-02 

.17155-02 

.1430E-02 

.11596-02 

.9405E-03 

.77326-03 

.60546-03 

.45136-03 

.33336-03 

.23466-03 

.1551E-03 

.92 1 8E-04 
.47156-04 
.18426-04 
.39835-05 
.  2823E-06 


.  40096-01 

.41916-01 
.4255E-01 
.44416-01 
. 4527E-01 
.4714E-01 

.48226-01 
.50136-01 
.51436-01 
.5344E-01 
. 5497E-01 

. 57136-01 
.58946-01 
.61326-01 
.63456-01 
.66096-01 

.68616-01 
.71626-01 
.74606-01 
. 7809E-01 
.81686-01 

.85836-01 

.9014E-01 

.95106-01 

.10046+00 

.10656+00 

. 11316+00 
.12086+00 
.12936+00 
.  1390E  +  00 
.1509E+00 

.  1645E  +  00 
.18016+00 
.20006+00 
.2211E+00 
.24216+00 

.2733E+00 
.31616+00 
.36716+00 
.4369E+00 
.  5391E  +  00 

.7031E+00 
•9816E+00 
.15586+01 
.32956+01 
.  1187E+02 


.12086+01 

.12126+01 

.12016+01 

.11976+01 

.1185E+01 

.11786+01 

.11696+01 

.1163E+01 

.11556+01 

.11516+01 

.11456+01 

.11426+01 

.11386+01 

.11366+01 

.11336+01 

.1131E+01 

.11296+01 

.11296+01 

.1128E+01 

.1128E+01 

.11286+01 

.11306+01 

.11316+01 

.11346+01 

.11376+01 

.11426+01 

.1148E+C1 
.11576+01 
.1170E+01 
. 1203E+01 
.  1254E  +  01 

.12836+01 

.1330E+01 

.13896+01 

.15356+01 

.18186+01 

.21806+01 
.26116+01 
.  3182E+01 
.38506+01 
.43106+01 

•4914E+01 

.69456+01 

•1566E+02 

.74276+02 

.56836+03 


PIPE  LENGTH  =  2  FEET,  INSIDE  CIAMETER  =  2  INCHES 
SOURCE  PRESSURE  =  45  FSIA,  SINK  PRESSURE  =  15  PSIA 


Z/L 

RE 

F 

. 10536-01 

.52526+04 

-.3415E-02 

• 2105E-01 

.10885+05 

•3582E-03 

.3158E-01 

.17176+05 

.99666-03 

.4211E-01 

.23856+05 

.73476-03 

• 5263E-01 

.31296+05 

.56726-03 

.63165-01 

.39225+05 

.49736-03 

•7368E-01 

.47986+05 

.40616-03 

.84215-01 

.57596+05 

.34406-03 

.94745-01 

.68056+05 

. 2942 E- 03 

.10536+00 

.79376+05 

.2509E-03 

.1158E+00 

.9192E+05 

•2193E-03 

.12635+00 

•  104S6  +  06 

.1924E-03 

.13685+00 

.1172E+06 

.17126-03 

.14746+00 

.12986+06 

.15466-03 

.15796+00 

.14256+06 

.14116-03 

.16846+00 

.15536+06 

.12956-03 

.17895+00 

•  1680E  +  06 

.11996-03 

.18955+00 

.18076+06 

.11166-03 

•2000E+00 

.  1935E  +  06 

.10426-03 

.21055+00 

.20636+06 

. 9782E-04 

.2211E+00 

.2192E+06 

.92176-04 

.23166+00 

.23206+06 

.87166-04 

.  2421E+00 

.2450E+06 

.82606-04 

.25266+00 

. 2580E+06 

.78  S3E-04 

.26325+00 

.27106+06 

.74836-04 

.27376+00 

.2842E+06 

.71466-04 

.28425+00 

.29736+06 

.68286-04 

.29476+00 

.31066+06 

.6550E-04 

.30535+00 

.32376+06 

.62896-04 

.31586+00 

•3372E+06 

.60546-04 

.32636+00 

.35056+06 

.58276-04 

.33686+00 

•  36426  +  06 

.56276-04 

. 3474E+00 

.37746+06 

.54316-04 

.35796+00 

.  3914E  +  06 

.52566-04 

.36846+00 

.40476+06 

.50826-04 

.37896+00 

,41896+06 

•4931 E-04 

.38955+00 

.43226+06 

.4772E-04 

.40005+00 

.44685+06 

.46425-04 

.41056+00 

.46006+06 

.44976-04 

.42116+00 

.4752E+Q6 

,43836-04 

.43166+00 

,48826+06 

.42546-04 

.44216+00 

.50416+06 

.41576-04 

.45265+00 

,  5167E  +  Q6 

.40506-04 

.46326+00 

.53356+06 

.39646-04 

.47376+00 

.54546+06 

.39416-04 

.48426+00 

.  5633E  +  06 

.39786-04 

.49476+00 

.57406+06 

.40876-04 

MA2 

V/U 

PHI 

.38846-05 

-.4295F+01 

.13446+01 

.16826-04 

-.  2051E  +  01 

.12716+01 

.41336-04 

-.13185+01 

.12436+01 

. 8020E-04 

-.  94  53E  +  00 

.12366+01 

. i376E-03 

-.72256+00 

.12336+01 

•2171E-03 

-.57496+00 

.12306+01 

•3247E-03 

-.47056+00 

.12306+01 

.46756-03 

-.39246+00 

. 1229E+01 

. 6520E-03 

-.3328E+00 

.1229E+01 

.88895-03 

-.23526+00 

.12306+01 

.11936-02 

-.24666+00 

•1229E+01 

.15455-02 

-.21716+00 

.1229E+01 

.19426-02 

-.19406+00 

.12306+01 

.23886-02 

-. 1754E+00 

.12306+01 

.2880E-02 

-.16015+00 

.1230E+01 

.34236-02 

-.14736+00 

.12306+01 

.40125-02 

-.13656+00 

.1230E+01 

.4653E-02 

-£ 1271E+00 

.1229E+01 

. 5  34  3E-02 

-. 1190E+C0 

.1+29E+01 

.6Q88E-02 

-.11196+00 

.1229E+01 

.68836-02 

-.10576+00 

.1229E+01 

.77366-02 

-.10016+00 

.12296+01 

. 8641E-02 

-.9S16E-01 

.12296+01 

.96106-02 

-.90656-01 

.  1228E  +  01 

.1063E-01 

-. 8664E-01 

.12286+01 

.1172E-01 

-. E293E-01 

.  1228E+01 

.1236E-01 

-.7S63E-C1 

.12286+01 

.14036-01 

-.76526-01 

.12276+01 

.  1535E-01 

-.73766-01 

.  1227E+01 

.  1671E-01 

-.7111E-01 

.12266+01 

.18116-01 

-.6879E-01 

.12266+01 

.1962E-01 

-.6650E-01 

.12766+01 

.21166-01 

-. 64  53  E- 01 

.12266+01 

.22856-01 

-.62535-01 

.12256+01 

.24546-01 

-. 6084E-01 

.1225E+01 

.26416-01 

-.59076-01 

.  1224E  +  01 

.28256-01 

-. 5764E-01 

.12246+01 

.30345-01 

-. 5604E-01 

.1223E+01 

.3233E-01 

-.54846-01 

.12236+01 

.34676-01 

-. 5337E-01 

.12226+01 

.  3682E-01 

— . 5237E— 01 

.12226+01 

. 3944E-01 

-.51006-01 

.12216+01 

.  4173E-01 

-.50206-01 

.12216+01 

.44696-01 

-.48906-01 

.  1219F+01 

.47076-01 

-.  4832E-01 

.12186+01 

.50366-01 

-.47076-01 

.12136+01 

.52656-01 

-.  233  8E-01 

.1209E+01 

.5l3OC+0U 

.52635+00 
.53686+00 
.547  45  +  00 
.55795+00 

.3  Jib t  +  0e 
. 55405+06 
.54526+06 
.  52756+06 
.  51746+06 

.45365-04 

.34315-02 

.58085-02 

.94835-02 

.13725-01 

.52395-01 

.4850E-01 

.46966-01 

.4350E-01 

.4177E-01 

.29915-01 
.41745-01 
.42415-01 
.44285-01 
. 45 19  E-01 

.12025+01 

.12066+01 

.11965+01 

.11925+01 

.11825+01 

. 56846+00 
. 57  896+00 
.58956+00 
.6000E+00 
.61055+00 

•  50105  +  06 
.4901E+06 
•47455+06 
.46295+06 
.44815+06 

.  1808E-01 
.22135-01 
.2596E-01 
.29295-01 
.32466-01 

.3882E-01 

.3705E-01 

.3447E-01 

.32725-01 

.30465-01 

.47Q6E-01 
.48195-01 
.  5C10E-01 
. 5146E-01 
. 5346E-01 

.11766+01 

.1168E+01 

.1164E+01 

.11575+01 

.11535+01 

.62116+00 

.63166+00 

.64216+00 

.65266+00 

.66326+00 

.  43605  +  06 
.4216E+06 
.4092E+06 
.39505+06 
.38235+06 

.35795-01 

.38935-01 

.4173E-01 

.4450E-01 

.47045-01 

.28765-01 
.267-E-01 
.251  IE-01 
. 23296-01 
.21745-01 

.55065-01 

.57215-01 

.59096-01 

.61466-01 

.63666-01 

.1149E+Q1 

.11465+01 

.1142E+01 

.11405+01 

.11385+01 

.67375+00 
.68426+00 
.69475+00 
.70535+00 
• 71586+00 

. 3632E+06 
.35S2E+06 
.3412E+06 
. 3279E+06 
.31405+06 

.49645-01 
.52845-01 
. 5647E-01 
.59725-01 
.62665-01 

. 2009E-01 
.18646-01 
.17145-01 
.15805-01 
.  1444E-01 

.66325-01 
.66915-01 
. 7195E-01 
.75025-01 
.7853E-01 

.11375+01 
.11355+01 
.1135 E+ 01 
.  1134E+01 
.1134E+01 

.72635+00 
r  73685+00 
. 74745+00 
,75795+00 
. 76845+00 

.  3006E+06 
.28685+06 
.27345+06 
.25935+06 
.  2465E  +  06 

.65755-01 

.68345-01 

.69905-01 

.71735-01 

.75256-01 

.13206-01 
.11986-01 
.  1086E-01 
.97625-02 
.8754E-02 

.8218 E-01 
.86345-01 
.9077 E-01 
.9581 E-01 
. 1C  126+  00 

.1134E+01 
.1135E+01 
.11375+01 
•1140E+01 
•  1143E+01 

. 77  895+00 
.78956+00 
. 80005+00 
.8105E+00 
•8211E+00 

.  2329E  +  06 
.21945+06 
.20585+06 
.  1924E  +  06 
.  1789E+06 

.  80 16E-01 
.8556E-01 
.9053E-01 
.94165-01 
.96155-01 

.77905-02 
.68975-02 
.6050E-02 
.  5270E-02 
.4542E-02 

. 1074E+00 
.U42E+00 
.  1219E+00 
.  1306E  +  00 
.14065+00 

.U48E+01 

.11545+01 

.11625+01 

.11725+01 

.11875+01 

.83168*00 
.  84  21 5  +  00 
. 85265+00 
.86325+00 
.87375+00 

.1656E+06 
.15246+06 
.  1391E+06 
.12585+06 
.11325+06 

. Q7  34  E-01 
,95796-Cl 
.71605-01 
.5366E-02 
-.32565-01 

.38756-02 

.3264E-02 

.2706E-02 

.21965-02 

.17775-02 

.1522E+00 
.  16565  +  00 
.  1916E  +  00 
.20126+00 
.22226+00 

.12085+01 
.1235E+01 
. 1276E+01 
. 1332E+01 
. 1432E+01 

.88425+00 
.  89475+00 
.90535+00 
. 91 585+00 
.92635+00 

. 1C25E+06 
.91295+05 
.7933E+05 
.6843E+05 
.58135+05 

.7918E-02 
-.57835-01 
-.26615+00 
-.41 37E+00 
-. 5706E+00 

.14495-02 

.11425-02 

.8582E-03 

.6386E-03 

•4614E-03 

.24356+00 

.27285+00 

.3142E+00 

.36296+00 

.4273E+00 

.16815+01 

.19415+01 

.22015+01 

.26445+01 

.3319E+01 

.93685+00 

.9474E+00 

.95795+00 

.96845+00 

.97395+00 

.48265+05 

.38205+05 

.28085+05 

.1843E+05 

.89895+04 

-.85516+00 

-.9910E+00 

-.27235+00 

-.23865+02 

-.98285+02 

.31615-03 
.19755-03 
. 1057E-03 
.43725-04 
.10045-04 

.52025+00 

.66375+00 

.90345+00 

.1400E+01 

.29035+01 

.4078E+01 
.42675+01 
. 3374E+01 
. 3268E+01 
.  2496E+02 

.98955+00 

.24865+04 

-.  1990E  +  03 

.82945-06 

.99415+01 

.25815+03 

PIPE  LENGTH  =  2  FEET,  INSIDE  CIA METER  =  2  INCHES 


SOURCE  PRESSURE  =  75 

Z/L  RE 

.1053E-01  .  1  0546  +  0  5 
.21056-01  .21346+05 

.3158E-Q1  . 33426+05 
•4211E-01  .46696+05 
*  5263E-01  .  6 1 1 2  E  +  0  5 
• £3 1 6E-01  .76826+05 
.73686-01  .94066+05 

.  8421E-01  .U26E+06 
.94746-01  .13306+06 
-10536+00  . 15  5  2E  +  C6 
• 1158E+0C  . 1799E+06 
•1263E+00  . 2046E+06 

•1368E+00  * 2294E+06 
. 1474E+00  .25426+06 
•1579E+30  .27916+06 
•1684E+00  .3040E+06 
. 1789E+00  .3290E+06 

•1895E+00  .3541E+06 
. 2000E  +  00  c  37 92E  +  06 
•2105E+00  . 4044E+06 
•2211E+0C  .42986+06 
.  2316E  +  00  .  ''.553E  +  06 

.2421E+00  .48086+06 
.25266+00  .506:E+06 
.26326+00  . 5322E+06 
.2737E+00  .55836+06 
.28426+00  .58426+06 

• 2947E+00  .6106E+06 
.  30  53E  +  00  .6366E  +  06 
.31566+00  .66356+06 
.32536+00  .68976+06 
.33686+00  .7171E+06 

.34746+00  .74356+06 
.35796+00  .771^6+06 
.36846+00  .7979E+06 
.  3789E  +  00  .  8266E  +  06 
.38956+00  .8531E+06 

.40006+00  .8827E+06 
.41056+00  .90936+06 
.4211E+00  .94006+06 
.43166+00  .9663E+06 
.44216+00  .  99  85E  +  06 

.45266+00  .10246+07 
.46326+00  .10586+07 
.4737E  +  00  . 1083E  +  07 
.48426+00  .11196+07 
.49476+00  .11426+07 


FSIA,  SINK  PRESSURE  =  15 

r  MA2 

-.63536-02  .5744E-05 
.6166E-03  • 2419E-04 

.56816-03  .58736-04 
•2778E-03  .11496-03 
.32436-03  .  19  63E-03 
.23986-03  .3103E-03 
.20246-03  .464  5E-03 

. 1783E-03  .66756-03 
.1486E-03  .9314E-03 
.1291 E-03  . 1270E-02 
.11236-03  .1707 E-02 
.9853E-04  . 2212E-02 

.8805E-04  .27835-02 
.7950E-04  .3424E-02 
.72426-04  .41336-02 
. 66  59E-04  .4916E-02 
.6167 E-04  . 5768E-02 

.57406-04  .66996-02 
.S361E-04  .77026-02 
. 5C38E-04  . 879DE-02 
.47436-04  .99526-02 
.44836-04  . 1121E-01 

.42506-04  .12S4E-01 
.40456-04  .13976-01 
.38546-04  .15486-01 
. 3683E-04  .17106-01 
.35196-04  .18B0E-Q1 

.33776-04  .20646-01 
. 3241 E-04  .22546-01 
.31206-04  .24616-01 
,300ZE-04  .26736-01 
.23016-04  . 2906E-01 

.27996-04  .3142E-01 
.27086-04  .34046-01 
.26186-04  .36666-01 
.25416-04  . 3960E-01 
.24606-04  . 4251E-01 

. 2396E-04  .45846-01 
.23256-04  .4905E-01 
.22666-04  • 5283E-01 
.22066-04  .56366-01 
,21526-04  . 6067E-01 

.21066-04  .64546-01 
.2056E-04  .69466-01 
.20586-04  .73616-01 
.20676-04  .79086-01 
.2148E-04  .83176-01 


PSIA 

V/U  PHI 

-.4233E+01  .1343 E+ 01 
-.20526+01  .12275+01 

-.1320E+01  . 1230E+01 
-.94316+00  .12336+01 
-.72256+00  . 1 2  27  E+  01 
-.57486+00  .12296+01 
-.4703E+00  .1229 E+ 01 

-.3S26E+00  . 1228E+01 
-.33286+00  .12296+01 
-.  28  53E+00  .  12296+01 
-.24676+00  .12296+01 
-.2172E+00  .12296+01 

-.1S42E+00  . 1230E+01 
-.17  56E  +  00  .  12296+01 
-.1604E+00  .12306+01 
-.14756+00  .12296+01 
-. 1368E+00  .12296+01 

-. 1274E+00  . 1229E+01 
-.11946+00  .1229 E+01 
-.1123E+00  . 1228E+01 
-.1061E+Q0  .12286+01 
-.1005E+00  .12286+01 

-. 9560E-01  .12286+01 
-.91106-01  .12276+01 
-. 87 13E-01  .  1 227  E+  01 
-.8344 E- 01  .12266+01 
-.8C1SE-01  .  1226E+  01 

-.7708E-01  .12256+01 
-.7+37E-01  . 1225E+C1 
-.7173E-01  .12246+01 
-.69456-01  . 1224E+01 
-.671 8E-01  .12236+01 

-.65256-01  . 1223E+  01 
-.63276-01  .1222E+01 
-.61646-01  .12226+01 
-.  5988E-01  .1221 E+01 
-.58506-01  . 1221E+01 

-.5692E-01  .1219E+01 
-.55766-01  .1219E+01 
-.5431E-01  .12186+01 
-.53366-01  . 1 21 7  E+  01 
-.  5202E-01  .12166+01 

-.51266-01  .12156+01 
-.  5000E-01  .12136+01 
-.4546E-01  .12116+01 
-.4332E-01  .12076+01 
-.24036-01  .12026+01 


•  51 586+00 
.52636+00 
.53686+00 
.54746+00 

.11406+07 

.11026+07 

.10866+07 

.10506+07 

.26436-04 

.44836-02 

.70846-02 

.10696-01 

.82796-01 

.76266-01 

.73836-01 

.68046-01 

.3S48E-01 
.4132E-01 
.4195E-01 
•  4384E-01 

•1196E+01 

.1201E+01 

.11906+01 

.11886+01 

.55796+00 
.56846+00 
.57896+00 
.58956+00 
. 60006+00 

.10316+07 

.99796+06 

.97666+06 

.94566+06 

.92286+06 

.14836-01 

.19276-01 

.23406-01 

.27246-01 

.30866-01 

. 6531E-01 
.60406-01 
. 57646-01 
. 53466-01 
. 50706-01 

.4472E-01 

.46606-01 

.47706-01 

.4960E-01 

.50946-01 

.11786+01 

.11766+01 

.11686+01 

.1164E+01 

.11596+01 

.61056+00 

.62116+00 

.63166+00 

.64216+00 

.65266+00 

.89316+06 

.86936+06 

.84046+06 

.81586+06 

.78746+06 

.3405E-01 

.36896-01 

.39796-01 

.42346-01 

.44746-01 

. 4706E-01 
. 44406-01 
.41176-01 
.38646-01 
.35766—01 

.52946-01 

.54516-01 

.56666-01 

.58516-01 

.6088E-01 

.11566+01 

.11516+01 

.11496+01 

.1146E+01 

.11446+01 

.66326+00 

.67376+00 

.68426+00 

.69476+00 

.70536+00 

.76226+06 

.73426+06 

.70856+06 

.68086+06 

.65486+06 

.47376—01 

.49916-01 

.52446-01 

.S5366-01 

.58316-01 

.  33  36E-01 
.3078E-01 
•2855E-01 
.  26  2  2E- 01 
.24166-01 

.6305E-01 
.65706-01 
.68246-01 
.71276-01 
.  7427E-01 

.1142E+01 
.1141E+01 
.11406+01 
.11406+01 
. 1 1 39  E+  01 

.71586+00 

.72636+00 

.73686+00 

.74746+00 

.75796+00 

.62736+06 

.60106+06 

.57366+06 

.54716+06 

.51986+06 

.61306-01 

.64856-01 

.68756-01 

.72296-01 

.75396-01 

.22076-01 

.20196-01 

.13316-01 

.16606-01 

.14926-01 

.77766-01 
.81356-01 
.85486-01 
.89816-01 
. 94  77  E- 01 

.11396+01 
. 1139E+01 
•1141E+01 
.1142E+01 
.1145E+01 

.76846+00 

.77896+00 

.78956+00 

.80006+00 

.81056+00 

.49316+06 

.46566+06 

.43876+06 

.41156+06 

.38466+06 

.78426-01 

.81566-01 

.85366-01 

.90596-01 

.9429E-01 

.13386-01 
.11896-01 
.  10526-01 
.92306-02 
.8Q38E-02 

.10016+00 
.10626+00 
.11296+00 
.12066+00 
.  12926+00 

.11486+01 

.1152E+01 

.1158E+01 

.11676+01 

.1178E+01 

.82116+00 

.83166+00 

.84216+00 

.85266+00 

.86326+00 

.35776+06 

.33106+06 

.30456+06 

.27716+06 

.24996+06 

.97396-01 
.99016-01 
.86246-01 
.41 46  E-0 1 
. 11 86E-01 

.69Z8E-02 

.59056-02 

.49566-02 

.41196-02 

.33416-02 

.  1392E  +  00 
.  1508E+00 
.16456+00 
.18046+00 
.2C00E+00 

.11936+01 
.12156+01 
.12486+01 
.13066+01 
. 139  5  E*  01 

.87376+00 
.88426+00 
.89476+00 
. 90  S  36  +  00 
.91586+00 

.22716+06 

.20696+06 

.18116+06 

.15766+06 

.13586+06 

.3338E-Q1 
—  .18456— Q1 
-.19346+00 
-.39336+00 
-.62316+00 

.  27  33E-02 
.22666-02 
.17346-02 
.13196-02 
.985  5E-03 

.21986+00 
.24006+00 
.  2738E  +  00 
.31266+00 
.36036+00 

.15156+01 
•1737E+01 
.  2028E+01 
.25346+01 
.  3265E  +  01 

.92636+00 

.93686+00 

.94746+00 

.95796+00 

.96346+00 

.11606+06 

.97056+05 

.80356+05 

.62876+05 

.47556+05 

-.95946+00 

-.12796+01 

-.2028E+01 

-.34156+01 

-.77106+01 

.72006-03 
.50356-03 
.3442E-03 
.21036-03 
• 1197E-03 

.42116+00 

.50336+00 

.60976+00 

.76116+00 

.10386+01 

.42075+01 
=54696+01 
.70036+01 
.95186+01 
. 1286E+02 

.97896+00 

.98956+00 

.30916+05 

.16866+05 

-.19396+02 

-.36976+02 

. 50526-04 
.1485E-04 

.16006+01 

.29516+01 

.1817E+02 

.19176+02 

PIPE  LENGTH  =  2  FEET,  INSIOE  DIAMETER  =  2  INCHES 


SOURCE  PRESSURE  =  135 

Z/L  RE 

• 1053E-01  . 19926+05 

.2105E-01  .41766+05 
.31586-01  .66056+05 
.42116-01  .9172E+05 
•5263E-01  .12066+06 
•63166-01  .1515E+06 

.7368E-01  . 1857E+06 
. 84  2 1 E-Ol  .2227E  +  06 
•94746-01  .26316+06 
. 10536+00  .30716+06 
. 11586+00  .35596+06 

. 1263E+00  .40476+06 
. 13685+00  .4S38E+06 
• 14745+00  .50296+06 
.15796+00  .55226+06 
•16846+00  .60146+06 

.17896+00  .65106+06 

•  1895E  +  00  .70066+06 

•  20006+00  .  75056+06 
.2105E+00  .80046+06 
.22116+00  .8506E+06 

•  2316E  +  00  . 9010E  +  06 
•2421E+00  .95 15E+06 
.2526E  +  00  . 1002E  +  07 
.  2632E  +  00  . 1053E  +  07 
.2737E  +  00  . 1105E  +  07 

.  2842E  +  00  . 1137E  +  Q7 
.2947E  +  00  . 1209E  +  07 
.  3053E  +  00  .1261E+07 
.3158E+00  .13156+07 
.3263E+00  .1367E+07 

.3368E+00  .1422E+07 
.  3474E  +  00  . 1475E  +  07 
.35795+00  .15316+07 
.  3684E  +  00  .1535E  +  07 
.3789E+00  . 1642E  +  07 

.3895E+00  .1696E+07 
.4000E+00  .1755E+07 
.41056+00  .1809E+07 
•4211E+00  .13716+07 
.43166+00  .19246+07 

.44216+00  .19896+07 
.45266+00  .20436+07 
.46326+00  .21106+07 
.47376+00  .21616+07 
•4842E+Q0  .22336+07 

.49476+00  .22816+07 


PSIA,  SINK  PRESSURE  =  15 

F  MA2 

•5203E-02  .63326-05 

.40775-03  . 2  8  58E-Q4 
• 3S82E-03  .7121E-04 
. 2736E-03  . 1 379E-03 
.  17  25E-03  .23776-03 
.1520 E-03  .3758E-03 

.11366-03  . 5633E-03 
.9372E-04  .81126-03 
. 7960E-04  .11326-02 
•6683 E- 04  . 1 545E-02 
.  57 90 E-04  . 2077E-02 

. 5057E-04  .26926-02 
.44  84  E-04  .3388E-02 
. 4045E-04  .41716-02 
•3683E-04  .50376-02 
.33816-04  .59946-02 

. 31 24  E- 04  .7038E-02 
.  2906 E-04  .8179E-02 
.2710E-04  . 94 10E-Q2 
.25446-04  . 1075E-01 
.23916-0*  .12176-01 

.22576-04  .13726-01 
.  21 39E-04  .  15366-01 
•2034E-04  .1713E-01 
.19376-04  .1900E-01 
.  18  5 1 E-04  .2102E-01 

.  17  69E-04  .23146-01 
.  1699E-04  .  25446-01 
.1632E-04  .2784E-01 

•  1572E-04  .  3045E-01 
.  15 14  E-04  .3315E-01 

•  1465E-04  . 361 IE-01 
.14166-04  .39146-01 
•1372 E-04  .4250E-01 
.  1329E-04  .4590E-01 
.1291E-04  .4971E-01 

.12516-04  .5351E-01 
.  121 8  E-04  . 57  86E-01 
.  11 83E-04  .6211E-01 
.  11 53  E-04  .67096-01 
.1124E-04  .71856-01 

.10956-04  .77596-01 
.107  4E-04  .82876-01 
.10476-04  .89486-01 
.10526-04  . 9526E-01 
.  1052E-04  .  10266  +  00 

.  11066-04  . 1084E  +  00 


PSIA 

V/U  PHI 

-.44456+01  . 1344E+01 

-. 2C81E+01  .12796+01 
-.13206+01  .1236 E+ 01 
-. 9477E+00  .1228E+01 
-.7226E+00  .12306+01 
-.57505+00  .12276+01 

-.4704E+00  .12286+01 
-.39236+00  .12286+01 
-. 3326E+00  .1228E+01 
-.28526+00  .12286+01 
-. 2466E+  00  .12286  +  01 

-.2171E+00  .1228E+01 
-. 1942E+00  .12296+01 
-. 1756E+00  .12296+01 
-.16046  +  00  . 1 2  29  E+  01 
-.1476E+Q0  .1228 E+ 01 

-. 1369E+00  . 1228E+01 
-•1276E+00  .1228E+01 
-.  11  96E  +  00  .1228E+01 
-.1125E+00  .12286+01 
-.  1C63E  +  00  .12276+01 

-.  1C08E+00  .12276+01 
-.95906-01  .1227E+01 
-.91436-01  .1226E+01 
-. 8748E-01  .12266+01 
-.83806-01  • 1225E+01 

-.8C56E-01  .12256+01 
-.77486-01  .12246+01 
-.74786-01  .1224E+01 
-.7216E-01  .1223E+01 
-.69906-01  .  1 223E+  01 

-.67646-01  .12226+01 
-.65736-01  .12216+01 
-.63766-01  .12206+01 
-.62156-01  .12206+01 
-.60416-01  .1218E+01 

-.59056-01  .1218E+01 
-.57496-01  .1216E+01 
-.56366-01  .1216E+01 
-.54956-01  .1214E+01 
-.54026-01  .12146+01 

-.52716-01  . 12126  +  01 
-.51986-01  .1211 E+ 01 
-.50786-01  .12096+01 
-.  50  26E-01  .12076+01 
-.4920E-01  .12036+01 

-.  24  50E-01  .1198 E* 01 


m 

•  51586  +  00 

.2278E+07 

.13386-04 

.10806+00 

.39158-01 

.11926+01 

. 52636+00 

.  2202E  +  07 

.46456-02 

.99146-01 

.40988-01 

.11976+01 

.53686+00 

.2169E+07 

.71636-02 

.95836-01 

.41618-01 

.11876+01 

.54748+00 

.2098E+07 

.10916-01 

.87976-01 

.43498-01 

.11856+01 

•5579E+00 

.20596+07 

.15406-01 

.84286-01 

.44378-01 

. 1 175E+01 

.5684E+00 

.19936+07 

.2019E-01 

• 7774E-01 

.46248-01 

.11736+01 

.57896+00 

.1951E+07 

.24516-01 

.7407E-01 

.4733E-01 

.11656+01 

i 

• 5895E+00 

. 1889E+07 

.28466-01 

.6856E-01 

.4S22E-01 

.11626+01 

i 

.  6000E  +  00 

.18446+07 

.32116-01 

.64936-01 

.  5055c-01 

.11576+01 

! 

.6105E+00 

.1785E+07 

•3506E-01 

.60176-01 

•5253E-01 

.11556+01 

•6211E+00 

. 1737E+07 

.37216-01 

.56716-01 

.54098-01 

•1150E+01 

.  63 16E  +  00 

. 1679E+07 

.39118-01 

.  5251E-01 

.56248-01 

.  1149E+01 

.  64  21E  +  00 

. 1630E+07 

.40786-01 

.4S  206-01 

.58098-01 

.11466+01 

| 

•6526E+00 

. 1573E+07 

.4268E-01 

.45476-01 

.6045E-01 

,11456+01 

i| 

.66328+00 

.15238+07 

.4503E-01 

.42266-01 

.62638-01 

.11436+01 

.67378+00 

. 1467E+07 

.47216-01 

.39036-01 

.65278-01 

.11426+01 

□ 

.68428+00 

.14158+07 

.4919E-01 

.  3616E-01 

.6782E-01 

.  1141E+01 

.69478+00 

.13608+07 

.51906-01 

.33176-01 

.7083E-01 

.11416+01 

S 

.7053E+00 

.13088+07 

.55306-01 

.30536-01 

.73848-01 

.11416+01 

.7158E+C0 

.  1253E  +  07 

.58418-01 

.  27  86E-01 

.77328-01 

.  1142E  +  01 

1 

.72638+00 

.12016+07 

.61026-01 

.25466-01 

.80896-01 

.11428+01 

? 

.73688+00 

.11468+07 

.63956-01 

.23086-01 

.  85  00E-01 

•1144E+01 

.74748+00 

.  1093E  +  0  7 

.67406-01 

.20906-01 

•8S33E-01 

.1145 E+ 01 

<i$ 

.75798+00 

.10396+07 

.71336-01 

. 1879E-01 

.94248-01 

.1148E+01 

g  - 

.76848+00 

.98536+06 

.74895-01 

.16856-01 

. 59  54E-01 

•11518+01 

l 

.77898+00 

.9310E+06 

.76905-01 

. 1497E-01 

.10568+00 

.1156E+01 

% 

f 

.78958+00 

.87738+06 

.7775E-01 

,1324E-01 

.11236+00 

.11626+01 

1 

o 

.  8000E  +  00 

.82266+06 

.80466-01 

. 1160E-01 

.12006+00 

.11708+01 

i 

.81058+00 

•7692E+06 

.85766-01 

.10116-01 

.12856+00 

.11818+01 

i 

•8211E+00 

.71496+06 

.92848-01 

.86986-02 

. 1385E+C0 

.11978+01 

y 

. 8316E+00 

•6620E+06 

.98366-01 

.74336-02 

.14988+00 

.1217E+01 

L 

.84218+00 

.60806+06 

.97696-01 

.6249E-02 

.16348+00 

.12456+01 

s 

.85268+00 

.55578+06 

.77336-01 

.52036-02 

.17908+00 

.1283E+01 

> 

s 

. 86326+00 

.50148+06 

.30166-01 

•4217E-02 

.19878+00 

. 1340E+01 

3 

.87378+00 

.45276+06 

.16986-01 

.34096-02 

.22056+00 

.14256+01 

i 

• 8842E+00 

.41048+06 

.3724E-03 

. 2821E-02 

.2407E+00 

.17186+01 

.89478+00 

.36806+06 

-.  1578E  +  00 

i  22696-02 

.  2670E+00 

.2114E+01 

i 

.9053E+00 

.31766+06 

-.37596+00 

.16756-02 

.  3109E+00 

.23516+01 

h 

.9158E+00 

.27266+06 

-.5392E+00 

.  1 238E-02 

.36016+00 

.  2908E+01 

f 

.92636+00 

.23516+06 

-.80406+00 

.92086-03 

.41666+00 

.36136+01 

i 

.93698+00 

.1965E+C6 

-. 11 52E+01 

.64206-03 

=  49976-rOO 

,4636E*01 

i 

.94748+00 

.16366+06 

- .  2008E  +  01 

.  44  566-03 

.  5996E+00 

.60336+01 

j» 

.9579E+00 

.12728+06 

-.3144E+01 

.27006-03 

.77196+00 

.87726+01 

.96848+00 

.9854E+05 

-.  8117E  +  01 

•  1614E-03 

.  10016  +  01 

.1172E+02 

1 

.97898+00 

.62978+05 

-.20246+02 

.  65876-04 

.15686+01 

.17836+02 

i  # 

.9895E+00 

,36326+05 

-.33416+02 

.22316-04 

.26996+01 

. 1 695  E+  02 

* 

i 

i 

K 

L. 
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PIPE  LENGTH 

=  2  FEET,  INSIDE  DIAMETER 

=  1  INCH 

SOURCE  PRESSURE  =  30  PSIA 

,  SINK  PRESSURE  =  15  1 

=  SIA 

Z/L 

RE 

F 

M  A  2 

v/u 

PHI 

. 1053E-01 

•2318E+04 

.90456-02 

. 5703E-05 

-.21846+01 

•  I  29SE+01 

. 2105E-01 

.48846+04 

.42208-02 

. 2531E-04 

-.10376+01 

.1250E+01 

•3158E-01 

.7650F+04 

.2668E-02 

. 6203E-04 

-.6626E+00 

.1236E+01 

•4211E-01 

.  10696+05 

.1909E-02 

.12136-03 

-.47396+00 

.12306+01 

.52636-01 

.1402E+05 

. 1451 E- 02 

.20775-03 

-.3628EJ00 

.  1230E+01 

• 63166-01 

.  1752E  +  05 

.11616-02 

.3231E-03 

-.28336+00 

.  1227E+01 

. 7368E-01 

.21616+05 

.93516—03 

. 45  26E-03 

-.23636+00 

.12306+01 

.84216-01 

.  25  77  E  +  05 

.7864E-03 

.70796-03 

-.  1S70E+00 

.1228E+01 

.9474E-01 

.30*86+05 

.6636E-03 

. 9880E-03 

-.16736+00 

.12296+01 

.  1 0  5  3E+  00 

.35596+05 

. 5674E-03 

.13515-02 

-.1434E+00 

.1229E+01 

. 11586+00 

.41326+05 

.49026—03 

. 18176-02 

-.  1  242E+00 

.1230E+01 

• 1263E+00 

•46996+05 

.4301E-03 

.23596-02 

-.1094E+00 

.  1230E+  01 

•  I  368E+00 

.52/16+05 

-  38  266-03 

.29716-02 

-.9805E-01 

.12306+01 

.1474E-t  00 

.58436+05 

.3458E-03 

.3664E-02 

-.8871E-01 

.12306+01 

.15796+00 

. 6420  E  +  0  5 

•3151E-03 

.4428E-02 

-.6122E-01 

.12306+01 

.16346+00 

•7005E+05 

. 2889w-03 

.52856-02 

-.7482E-01 

.12296+01 

. 17  396+00 

.759IE+05 

.2668 E- 03 

.62126-02 

-.  69  55E-01 

.1230E+01 

•1895E+00 

.8182E+05 

. 2480E-03 

. 7239E-02 

-.64906-01 

.1229E+01 

•2000E+00 

•  8770E  +  05 

.2307E-03 

. 83376-02 

-.6102E-01 

.1229 £+01 

. 2105E+00 

.9365E+05 

.2171 6—03 

. 9548E-02 

-.57486-01 

•1229E+01 

. 2211E+00 

•9960E+05 

. 2036E-03 

.10836-01 

-.5452E-01 

.  1 229E+  01 

• 2316E+00 

.1057E+06 

• 1924E-03 

. 1225E-01 

-.  5 1 75 E- 01 

.12286+01 

.  24  21E  +  00 

.  1118E  +  06 

.1822E-03 

. 1374E-01 

-.  4S43E-01 

.1228E+01 

. 25266+00 

•11806+06 

. 1728E-03 

.15396-01 

-.47216-01 

.1227E+01 

. 26326+00 

•  1242E  +  06 

. 1646E-03 

• 1711E-01 

-. 4  5  36E-01 

.1227E+01 

.27376+00 

.  1306E  +  06 

. 1 5  73E- 03 

. 1902E-01 

-.4354E-01 

.?  226E+01 

.28426+00 

.  1369E  +  06 

. 1500E-03 

. 2098E-01 

-.4205E-01 

.  1226E+01 

.2947E+30 

.  1434E  +  06 

. 1439E-03 

.23186-01 

-. 40  53E-01 

.1225E+01 

.3053E+00 

•  1498E  +  06 

• 1377E-03 

.2542E-01 

-.3S32E-01 

.12256+01 

.31586+00 

•  1566E  +  06 

. 1323E  —  03 

.2795E-01 

-.3804E-01 

.12246+01 

.32636+00 

.  1631 E+06 

. 1 271 E-03 

.30516-01 

-.  37  04E-01 

•1224E+01 

• 33686+00 

.  1701E  +  06 

. 12266-03 

. 3342E-01 

-.3595E-01 

. 1 2  23E+  01 

.347  46  +  00 

.  1767  E  +  06 

. 11 81 E-03 

.36346-01 

-.3514E-01 

.1222E+GI 

. 35796+00 

•  1840E  +  06 

.1140E-03 

.3970E-01 

--3418E-01 

. 1221E+01 

.3634E+00 

•1907E+06 

.11026-03 

. 4303E-01 

-.  3353E-01 

.  12216+01 

.37396+00 

.  I 983E  +  06 

. 1066E-03 

.4693E-01 

-.  3269E-01 

.  1219E  +  01 

. 38956+00 

.20522+06 

.10315-03 

. 5074E-01 

-.32166-01 

.1219E+01 

• 40005+00 

.21316+06 

. 10  02  E-03 

.55276-01 

-.31426-01 

.12186+01 

.41056+00 

.2201E+06 

.97  03E-04 

•5964E-01 

-.3101E-01 

•1217E+01 

.42116+00 

•2235E+06 

.94326-04 

.6495E-01 

-. 3035E-01 

•1215E+01 

.43166+00 

.  2357E  +  06 

.9176E-04 

.69996-01 

-.30056-01 

.1214E+01 

.44216+09 

.2446E+06 

.89036-04 

•7629E-01 

-.2S45E-01 

.1213 E+ 01 

.45266+00 

.25196+06 

. 8701E-04 

.82156-01 

-. 2924E-01 

.1211E+01 

.46326+00 

.2614E+06 

•  8447E-04 

. 8967E-01 

-.28696-01 

.1210 E+ 01 

.4737E+00 

.  2688E  +  06 

.83856-04 

.9649E-01 

-•2858E-01 

.12076+01 

. 48426+00 

. 2790E+06 

.8108E-04 

.10556+00 

-.28116-01 

•1206E+01 

_.  49476  +  00 

.  2863E  +  06 

.83386-04 

.11306+00 

-. 1406E-01 

•1202E+01 

-  189 
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.51586+00 

.2 J59E+06 

.52636+00 

.27736+06 

.53686+00 

.27336+06 

.54746  +  C -o 

.26516+06 

.55796+00 

.26056+06 

.56846+00 

. 25  28  E  +  06 

.57896+00 

.24786+06 

.58956+00 

.24046+06 

.60006+00 

.23516+06 

.61056+00 

.22306+06 

.62116+00 

. 2223E+06 

.63166+00 

.21536+06 

.6421E+00 

.20946+06 

.65266+00 

.20246+06 

.66326+00 

.19636+06 

.67376+00 

.18946+06 

.68426+00 

.18316+06 

.69476+00 

.17626+06 

.70536+00 

.16986+06 

.71586+00 

.16296+06 

.72636+00 

.15646+06 

.73686+00 

.14946+06 

.74746+00 

.14286+06 

.75796+00 

.13586+06 

.76846+00 

.12916+06 

.77896+00 

.12216+06 

.7895E+00 

.11536+06 

.  8000E  +  00 

.10826+06 

.81056+00 

.1013E+06 

.82116+00 

.94256+05 

.83166+00 

.87376+05 

.84216+00 

.80306+05 

.85266+00 

.73456+05 

.86326+00 

.66366+05 

.87376+00 

.59496+05 

.88426+00 

.52396+05 

•  8947E  +  00 

.45646+05 

.90536+00 

.39306+05 

.91586+00 

.3376E+05 

.92636+00 

.28346+05 

.93686+00 

.23506+05 

.94746+00 

.18676+05 

.95796+00 

.14116+05 

.96846+00 

.10576+05 

.97896+00 

.58686+04 

.98956+00 

.28536+04 

.10566-03 

. 1125E+00 

.2505E-02 

.10366+00 

j  48  7  4  6-02 

.1001E+00 

.80346-02 

.  9240E-01 

.11556-01 

.88736-01 

.15196-01 

.82256-01 

.18706-01 

.78  59E-01 

.21906-01 

.73066-01 

.24706-01 

•6949E-01 

.27206-01 

.64656-01 

.  2947E-01 

.61186—01 

.31606-01 

.56856-01 

.33566-01 

.53506-01 

.35336-01 

.49596-01 

.36886-01 

.4641E-01 

.38296-01 

.4287E-01 

.3972E-01 

.39886—01 

.4137E-01 

•3667E-01 

.4317E-01 

.33876-01 

.44996-01 

.30966-01 

.47026-01 

.2838E-01 

.49366-01 

.25766-01 

.51736-01 

.23406-01 

.53886-01 

.21046-01 

.56166-01 

.1891E-01 

.5927E-01 

.16816-01 

.63486-01 

.14916-01 

.68436-01 

.13066-01 

.73456-01 

.  1139E-01 

.78746-01 

.9790E-02 

.84956-01 

.83646-02 

.92696-01 

.7017E-02 

.10116+00 

.58316-02 

.11076+00 

.4725E-02 

.12556+00 

.3769E-02 

.1475E+00 

.2898E-02 

.1638E+00 

.  2177E-02 

.1751E+00 

.1597E-02 

.2168E+00 

.11636-02 

.33536+00 

.808  'E  —  03 

.43836+00 

.5492E-03 

.56316+00 

.34446-03 

.15556+01 

. 1 962E-03 

.5730E+00 

.11016-03 

-. 17  07  E  +  01 

.33946-04 

.2220E+01 

•8018E-05 

.1677E-01  .U94E+01 

w  18056—01  .1193E+01 
.18466-01  .1177E+01 
. 1971E-01  >H72E+01 
.20236-01  .U58E+01 
.  21396-01  .1152 F, +  01 

.  2200E-01  .11426  +  01 
. 2313E-01  .11376+01 
.2382E-01  .11296+01 
. 2497E-01  . 1126E+01 
.  2579E-01  .1120 E+ 01 

.  2699E-01  .1118 E+ 01 
.27956-01  .11136+01 
.  2925E-01  .11116+01 
.  3036E-01  .1107E  +  01 
.  3179E-01  . 1105E+01 

.  3309E-01  .1101 E+ 01 
.3470 E—  01  .1099E+01 
.  3623E-01  .  10966+01 
. 3807E-01  .1094E+01 
.  3988E-01  . 1091E+01 

.  4202E-01  .1089E+01 
.44206-01  . 1086E+01 
.4676E-01  .  1 084E+  01 
.49436-01  • 1032E+01 
.52576-01  .1080E+01 

.  5592E-01  .  10786  +  01 
.  55  86E-01  .1077E  +  01 
.641 8E-01  .10766+01 
•6932E-01  . 1076E+01 
.75056-01  .1076E+01 

.8199E-01  .10786+01 
.89976-01  . 1081E+01 
.  9996E-01  .  1085E  +  01 
. 11 19E+00  .  1091E  +  01 
•  127SE  +  00  . 1101E+01 

.  1467E  +  00  . 1121E  +  01 
.17076+00  . 1150E  +  01 
.19966+00  .  1170E+01 
.2394E+00  .1167E+01 
.29076+00  . 1146E+Q1 

.36756+00  . 1174E+01 
.48746+00  .11166+01 
.6500E+00  .12606+01 
.1172E+01  . 3289E+01 
.24146+01  .12136+02 


PIPE  LENGTH  =  2  FEET,  INSIOE  DIAMETER  =  1  INCHE 
SOURCE  PRESSURE  =  45  PSIA,  SINK  PRESSURE  =  15  PSIA 


l/l 

. 1053E-01 
• 21 05E-01 
.31586-01 

.4  211E-01 

•  52  63E-01 
.63166-01 
.7368E-01 
.8421E-01 

•94746-01 
• 1053E+00 
•11586+00 
. 12636+00 
. 13686+00 

• 14746+00 
• 1 5796+00 
• 1684E+00 

•  1789E+00 
.18956+00 

• 2000E+00 
. 2105E+00 

•  22HE  +  00 
.2316E+00 
.2421E+00 

. 25  26E  +  00 
.  2632E  +  00 
•2737E+00 

•  2842E  +  00 
.29476+00 

. 3053E+00 
.315ec+00 
. 3263E+00 
.3368E+00 
.3474E+00 

.  3579E  +  00 
.  36  84E  +  00 
. 3789E+00 
.3895E+00 
.40006+00 

. 4105E+00 
.42UE  +  00 
•4316E+00 

•  4421E  +  00 
.4526E+00 

.46326+00 

.4737E+00 

.4842E+00 

.49476+00 


RE 

.42796+04 
. 8932E+04 
• 1423E+05 

.19436+05 
. 2591E+05 
. 3235E+05 
.3971 E+OS 
.47366+05 

.56266+05 

.65576+05 

•7625E+05 

.8662E+05 

.97356+05 

.  1078E+06 
.11876+06 

•  1294E  +  06 
.1405E+06 

•  1514E  +  06 

.  1627E  +  06 

•  1738E  +  06 

•  1852E  +  06 
.  1965E  +  06 
.20836+06 

.21996+06 

.2319E+Q6 

.24306+06 

.25626+06 

.26856+06 

.28136+06 

•2941E+06 

.30736+06 

.32076+06 

.33436+06 

.34836+06 
.36246+06 
.37726+06 
.3919E<  06 
.40746+06 

.42286+06 

.43946+06 

.45556+06 

.47356+06 

.49056+06 

.51016+06 

.52316+06 

.55006+06 

.56826+06 


F 

.46376-02 
.22606-02 
. 1413 E- 02 

.10366-02 

.77606-03 

.62106-03 

.50406-03 

.42466-03 

.35586-03 
.3058E-03 
.2644E-03 
. 231 5  E-03 
•2058E-03 

.18676-03 
.  1695E-03 
.15566-03 
.14396-03 
.13436-03 

.12496-03 

.11756-03 

.11036-03 

,1043.6-03 

.98686-04 

.93716-04 
.89276-04 
.85216-04 
.  81 1 9E-04 
.7817E-04 

.747  8  E-04 
.7198E-04 
.6915 E-04 
.6683 E-04 
,  6440E-04 

.62106-04 
.6021E-04 
.58366-04 
.5655 E-04 
.5522E-04 

.  5365E-04 
.5240E-04 
.51456-04 
•  5006E-04 
.  49636-04 

•4836E-04 

.4948E-04 

.47356-04 

.49966-04 


MA2 

.88216-05 
.38  80E-04 
•9614E-04 

.18546-03 
. 32  07E-03 
. 5062E-03 
.75896-03 
.10916-02 

.13286-02 
.  20  87E-02 
•2816E-02 
.36576-02 
.46196-02 

.57026-02 

.69176-02 

.82666-02 

.97566-02 

.11406-01 

.1319E-01 
.15156-01 
.  17  2  8E-01 
•1961E-01 
.22126-01 

.24876-01 
.27826-01 
.31066-01 
. 34  53E-01 
.38356-01 

.42446-01 
.  469  5E-01 
.  5177E-01 
•5714E-01 
.62846-01 

.6927E-01 

.7609E-01 

.83866-01 

.9212E-01 

.10166+00 

.  1 1 1 8E  +  00 
.12376+00 
.13636+00 
.15176+00 
.  1679E  +  00 

.18836+00 
.2097E+00 
. 2377E+00 
. 2650E+00 


V/U 

-.21826+01 
-. 1039E+01 
-.66346+00 

-.47486+00 
-.36346+00 
-.28896+00 
-.23676+00 
-.  1S75E+00 

-.  1677E+00 
-.14396+00 
-.12476+00 
-.11006+00 
-.98576-01 

-.8S30E-31 
-.81 82E-01 
-.75486-01 
-.  7022E-01 
-.6563E-01 

-.61766-01 
-.  5830E-01 
-.55366-01 
-.52666-01 
-.50376-01 

-.4822E-01 

-.4640E-01 

-.44656-01 

-.43196-01 

-.4175E-01 

-.  4058E-01 
-.  3S38E-01 
-.38426-01 
-.37416-01 
-.36646-01 

-.  3579E-01 
-.3518E-01 
-.3446E-01 
-.33986-01 
-.33376-01 

-.3301E-01 
—  .3251E— 01 
-.3226E-01 
-.31866-01 
-.31726-01 

-.31426-01 
— . 3139E— 01 
-.31296-01 
-. 1575E-01 


PHI 

.12886+01 

.12466+01 

.12386+01 

.12286+01 
•1231E+01 
.12296+01 
. 1 230E+01 
.12296+01 

.12306+01 
•1229E+01 
. 1 2306+01 
.1230E+01 
.12316+01 

. 1230E+01 
.12306+01 
.12296+01 
.  1229E  +  01 
.12286+01 

.1228E+01 
.12276+01 
.  1227E  +  01 
.  1226E  +  01 
.12266+01 

.12256+01 
.12256+01 
. 1224E+01 
.  1223E+01 
•  1222E+01 

.1221E+01 
.12206+01 
.  1219E+01 
.  1217E+01 
. 1 216E+  01 

.12146+01 
.  1213E+01 
.12116+01 
.12096+01 
.12076+01 

.12046+01 
.  1203E+01 
.11986+01 
.11976+01 
.1191 E+01 

.11906+01 
.11826+01 
.1181 E+01 
.11736+01 
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3 1  :>  e  =  +  00 

.  3o80£  +  06 

.59026-04 

.26476+00 

.15252-01 

.11676+01 

52636+00 

.55166+06 

.28862-02 

. 2394E+00 

.16576-01 

.1169E+01 

5368c+00 

.54246+06 

.53232-02 

.22 72E+C0 

.17176-01 

.11596+01 

54746+00 

.52716+06 

.84506-02 

.2071E+Q0 

.1838 E-01 

.11596+01 

55796+00 

.51726+06 

.  11 88  E-01 

.19616+00 

.19036-01 

.11516+01 

56846+00 

.50296+06 

.  1549E-01 

.18036+00 

.2C14E-01 

.li;8E+01 

57896+00 

.49226+06 

.18916-01 

.17026+00 

•2086E-01 

.1143E+01 

58952+00 

.47846+06 

.22026—01 

.15732-1  00 

.2194E-01 

.11386+01 

60006+00 

.46716+06 

.24776-01 

.14806+00 

.22746-01 

.U34E  +  01 

6X052+00 

.45356+06 

.27226-01 

.13702+00 

.23846-01 

.  1130E+01 

62116+00 

.44176+06 

.  2937E-01 

.1294E+0O 

.24756-01 

.11276+01 

63166+00 

.42846+06 

. 31 26  E-01 

•1189E+0C 

.2591E-01 

.11246+01 

64212+00 

.41626+06 

.32906-01 

.11106+00 

.2695E-01 

.11222+01 

65262+00 

.40296+06 

.  343?  E-01 

.1026E+00 

.28216-01 

.11206+01 

66326+00 

.39046+06 

.3584 E-01 

.9534E-01 

.29406-01 

•1117E+01 

67376+00 

.37716+06 

.  37  25  E-01 

.8781  E-01 

.3080E-01 

.11156+01 

68426+00 

.36426+06 

.3870E-01 

.  8114E-01 

.32186-01 

.1113E+01 

69476+00 

.35086+06 

.4G23E-01 

.7443E-01 

.  3376E-01 

.1112E+01 

70536+00 

.33786+06 

.41796-01 

.68356-01 

. 35  37E-01 

.11096+01 

71582+00 

.32426+06 

•  4345  E-01 

•6233E-01 

.  3719E-01 

.11086+01 

72636+00 

.31096+06 

.45206-01 

.56826-01 

.  3909E-01 

.11056+01 

73686+00 

.29726+06 

.47106-01 

.51456-01 

.41226-01 

.13  03E+0 1 

74746+00 

.28376+06 

.49286-01 

.4650E-01 

.43496-01 

.11006+0. 

7579E+00 

.26996+06 

.51686-01 

.41736-01 

.46046-01 

.10986+01 

76846+00 

.25636+06 

.54196-01 

.37336-01 

.48806-01 

.1096E+01 

77896+00 

.24256+06 

.57006-01 

.33156-01 

.51936-01 

•1094E+01 

78952+00 

.22876+06 

•  6036E-01 

•  2927E-01 

.55386-01 

.1092E- 01 

80006+00 

.21486+06 

.04296-01 

•  2563E-01 

.  5931E-01 

. 1 090  ;+  0 1 

81056+00 

.20086+06 

.6854.6-01 

.22  2  56-01 

.63756-01 

. 1 089  E+  01 

82116+00 

.18686+06 

.74186-01 

•1912E-01 

.  6E88E-01 

.10686+01 

83162+00 

.17276+06 

.80436-01 

•1625E-01 

•7483E-01 

.10886+01 

84216+00 

.15366+06 

.37756-01 

.13606-01 

.81 87E-01 

.10896+01 

85262+00 

.14456+06 

.96176-01 

.11236-01 

.9018 E-01 

.10926+01 

86322+00 

.13046+06 

.10556+00 

.90846-02 

.10036+00 

.10976+01 

87376+00 

.11646+06 

. 1172E+00 

.71386-02 

.11286+00 

.11036+01 

88426+00 

.10246+06 

•1316E+00 

.55216-02 

.  1287E  +  00 

.11156+01 

89476+00 

.88356*05 

.14676+00 

.40846-02 

.14956+00 

.11356+01 

90536+00 

.  7  5796  +  05 

. 1 562E+00 

.29826-02 

.17486+00 

•1169E+01 

91536+00 

.64176+05 

•1412E+00 

.21226-02 

.20676+00 

.12236+01 

92636+00 

.53756+05 

.78146-01 

.14776-02 

.24696+00 

. 1 307  E+  01 

,93686+00 

.44596+05 

. 2233  E-01 

. 1 009E-02 

.2S65E+00 

. 1472E+  01 

,94746+00 

.36326+05 

-.93766-01 

.6843E-03 

.35776+00 

.13546+01 

,95796+00 

.28786+05 

-.4249E+00 

.41726-03 

.45626+00 

.2551E+01 

,96846+00 

.21176+05 

-.11046+01 

.2265E-03 

.  6158E  +  00 

.  3903E+  01 

,97896+00 

.13656+05 

-.30426+01 

•9580E-04 

. 93956+00 

.62776+01 

,98956+00 

.69486+04 

-.6779E+01 

.24616-04 

.18536+01 

.8795E+01 
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PIPE  LENGTH 

=  2  FEET,  INSIDE  DIAMETER  =  1  INCH 

SOURCE  PRESSURE  =  75  PSIA 

,  SINK  PRESSURE  =  15  PSIA 

Z/L 

RE 

F 

HA2 

v/u 

PHI 

. 1053E-01 

.79976+04 

.22406-02 

.10806-04 

-.21716+01 

. 1 287  E+  01 

. 2105E-01 

.16526+05 

.12716-02 

.47006-04 

-.10376+01 

.1243E+01 

. 31 58E-01 

.26636+05 

.76066-03 

.11736-03 

-.66206+00 

. 1238E+01 

.42116-01 

.36176+05 

•  56 10  E-03 

. 22546-03 

-.47+3E+00 

.12276+01 

• 5263E-01 

.+8166+05 

.41976-03 

.38985-03 

-.36296+00 

.12306+01 

i 

• 6316E-01 

.59956+05 

.33546-03 

.61386-03 

-.  2887E  +  00 

.12276+01 

1 

i 

.7368S-01 

.74116+05 

.2735E-03 

.92476-03 

-.23656+00 

.12306+01 

.  8421E-01 

.88236+05 

.2298E-Q3 

.1327E-02 

-.19756+00 

.12286+01 

.9474E-01 

.  1048E  +  06 

. 19 1 7  E-03 

.18616-02 

-.  1677E  +  00 

.1230E+01 

•  10536+00 

.12186+06 

.16576-03 

.25386-02 

-.1440 E+ 00 

.12286+01 

.11586+00 

.14206+06 

.1427E-03 

.  34 3 2E-02 

-.12486+00 

.1230E+01 

.12636+00 

.16116+06 

•1256E-03 

.44586-02 

-.1102E+00 

.  1 229  E+  01 

.  1368E  +  00 

.  18166  +  06 

. 11 07  E-03 

.56476-02 

-.98836-01 

ol230E+01 

.  1474E  +  00 

.20106+06 

.1006E-03 

.69756-02 

-.  8964E-01 

.12296+01 

.15796+00 

• 2217E+06 

.9127E-04 

.84826-02 

-.  8219E-01 

.12306+01 

.16846+00 

.2414E+06 

.83516-04 

•1014E-01 

-.7591E-01 

. 1 229E+01 

i 

•1789E+00 

.26246+06 

.77296-04 

. 1200E-01 

-.7068E-01 

.1229E+01 

» 

s 

.18956+00 

.28256+06 

.72396-04 

.  1403E-01 

-.6616E-01 

.  1227  E+01 

•20006+00 

.30406+06 

.67036-04 

.16296-01 

-.6231E-01 

.12286+01 

.21056+00 

.32456+06 

.63196-04 

.18746-01 

-.58916-01 

.12266+01 

.22116+00 

•3466E+06 

.5924E-04 

.  2146E-01 

-.55996-01 

.1226E+01 

.23166+00 

.36776+06 

.55  76-6-04 

.24406-01 

-.53356-01 

.12256+01 

.24216+00 

.39046+06 

.52896-04 

. 2765E-01 

-.  5109E-01 

.12256+01 

.25266+00 

.41236+06 

.50316-04 

.3117E-01 

-.49006-01 

•1224E+01 

.26326+00 

.43576+06 

.47786-04 

•3505E-01 

-.4720E-01 

.12236+01 

.27376+00 

.45836+06 

.45696-04 

.3927E-01 

-.45536-01 

.1222E+01 

1 

.28426+00 

.4825E+06 

, 43  38  E-04 

.43906-01 

-.  44  0  9E-0 1 

.12206+01 

1 

? 

.29476+00 

.50596+06 

.41816-04 

.4896E-01 

-.42736-01 

.12206+01 

.3053E+00 

.53106+06 

.40056-04 

•  545  IE-01 

-.*•1576-01 

.12186+01 

i 

.31586+00 

.55548+06 

.38516-04 

.,60636-01 

-.4045E-01 

.12176+01 

.32636+00 

.58156+06 

.37156-04 

•6733E-01 

-.3951E-01 

.12146+01 

.33686+00 

•6071E+06 

.35756-04 

.7480E-01 

-.38606-01 

.12146+01 

.34746+00 

.63446+06 

•  3471 E-04 

.82986-01 

-.37846-01 

.  1210E+01 

.35796+00 

.66146+06 

.33496-04 

.92226—01 

-.37106-01 

.12106+01 

•3684E+Q0 

.69016+06 

.32506-04 

.10246+00 

-.36506-01 

.12056+01 

.37896+00 

.71886+06 

. 31 67E- 04 

.11406+00 

-.35916-01 

.1206E+01 

1 

.38^56+00 

.74916+06 

•3068E-04 

.1268E'00 

-.35456-01 

.12006+01 

.40006+00 

.78016+06 

.29896-04 

.14206+00 

-.35006-01 

.12006+01 

.41056+00 

.81196+06 

.29856-04 

.15846+00 

-.34666-01 

.11922+01 

.42116+00 

.84606+06 

.29556-04 

.17906+00 

-.34366-01 

.11936+01 

| 

.43166+00 

. 88016+06 

.28926-04 

.20116+00 

-.3415E-01 

.11836+01 

.44216+00 

.91796+06 

. 2  8  33  E-04 

.  2303E  +  00 

-.34026-01 

.11336+01 

.45266+00 

.95466+06 

.29016-04 

. 2615E  +  00 

-.33956-01 

.11716+01 

.46326+00 

.99876+06 

.27896-04 

.30756+00 

-.34086-01 

.11706+01 

.47376+00 

.10396+07 

.31096-04 

.35546+00 

-.34236-01 

.11556+01 

.4842E+00 

.10936+07 

.30926-04 

.43866+00 

-.34826-01 

.1147E+01 

i 

* 

.49476+00 

.11406+07 

.34456-04 

.52926+00 

-.17846-01 

.  1 134E+01 

i 

! 
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. SlSSC+OQ 
.52635+00 
.53685+00 
.54745+00 

.11+76+07 
.  11136  +  07 
.10916+07 
.50616+07 

.41246-04 

.34826-02 

.58496-02 

.88636-02 

.54655+00 

.47506+00 

.43595+00 

.38956+00 

.12456-01 

.14916-01 

.15746-01 

.16946-01 

.11206+01 

.11346+01 

.11346+01 

.1140E+OI 

.55795+00 

.56845+00 

.57395+00 

.58955+00 

.60005+00 

.10386+07 

.10106+07 

.98676+06 

.95986+06 

.93586+06 

.12196-01 

.15466-01 

.18536-01 

.21496-01 

.24156-01 

.35756+00 

.32406+00 

.30016+00 

.27426+00 

.25406+00 

.17816-01 

.18896-01 

.19736-01 

.2078E-01 

.21695-01 

.11376+01 
.1139E+01 
.11386+01 
. 1136E+01 
.U35E+01 

.61056+00 

.62115+00 

.63166+00 

.64216+00 

.65266+00 

.90965+06 

.88516+06 

.85916+06 

.83406+06 

.80796+06 

.26465-01 

.28336-01 

.29986-01 

.31506-01 

.32916-01 

.23336+00 

.21596+00 

.19865+00 

.18342+00 

.16356+00 

.22756-01 
.23746-01 
.24866-01 
. 2597 E- 01 
. 27  20E-01 

. 1133E+01 
.11336+01 
.11316+01 
.1130E+Q1 
.1128E+01 

.66326+00 

.67376+00 

.68426+00 

.69476+00 

.70536+00 

.78246+06 

.75616+06 

.73006+06 

.70366+06 

.67716+06 

.34266-01 

.35606-01 

.36936-01 

.38326-01 

.39796-01 

.15516+00 

.14226+00 

.13036+00 

.11906+00 

.10856+00 

.2845E-01 

.29836-01 

.31256-01 

.3281E-01 

.34466-01 

.  1128E+01 
.11266+01 
.11256+01 
.11236+01 
.  1122E+01 

.71586+00 

.72636+00 

.73686+00 

.74746+00 

.75796+00 

.65035+06 

.62346+06 

.59646+06 

.56926+06 

.54186+06 

.41316-01 

.42996-01 

.44906-01 

.46876-01 

.48936-01 

.98626-01 
.  8940E-01 
.80686-01 
.72566-01 
.6497E-01 

.36266-01 
.38186-01 
.40  29E-01 
.42586-01 
.45106-01 

.  1120E  +  01 
.11176+01 
.11166+01 
•1114 E+ 01 
.11126+01 

.76346+00 

.77896+00 

.78956+00 

.80005+00 

.81056+00 

.51436+06 

.48686+06 

.45916+06 

.43156+06 

.40366+06 

.51246-01 

.53746-01 

.56486-01 

.59686-01 

.6354.6-01 

.57876-01 
.51276-01 
.45136-01 
.  3946E-01 
.34196-01 

.4787E-01 
.50956-01 
.5439E-01 
.58256-01 
.  62 66E-01 

.11106+01 

.1108E+01 

.1106E+01 

.11056+01 

.11036+01 

.82116+00 

.83166+00 

.84216+00 

.85266+00 

.86326+00 

.37586+06 

.34765+06 

.31956+06 

.29106+06 

.26276+06 

.68186-01 

.73616-01 

.79906-01 

.87215-01 

.95736-01 

.29376-01 
.24926-01 
.20896-01 
.17206-01 
.  1392E-01 

.f 770E-01 
.  7358E-01 
.8043E-01 
.88676-01 
.98635-01 

.11026+01 

•1102E+01 

.1102E+01 

.11046+01 

.11076+01 

.87376+00 

.88425+00 

.89475+00 

.90536+00 

.91586+00 

.23446+06 

.20636+06 

.17805+06 

.15296+06 

.12956+06 

.10646+00 

.11936+00 

.13206+00 

.13666+00 

.11416+00 

.11015-01 
. 8467E-02 
.62696-02 
.45  9  2E-02 
.32766-02 

.1109E+00 
.12656+00 
. 1470E+00 
.17166+00 
. 20  29E  +  00 

.1115E+01 
. 1 1 27  E+  01 
.11506+01 
. 11 86E+01 
.12476+01 

.92636+00 

.93686+00 

.94746+00 

.95796+00 

.96846+00 

.10885+06 

.90726+05 

.75306+05 

.58396+05 

.44506+05 

.54806-01 

-.15606-01 

-.24856+00 

-.66686+00 

-.17596+01 

. 2300E-02 
•1591E-02 
.10916-02 
. 6565E-03 
.38076-03 

.24176+00 
.28916+00 
.34746+00 
.44586+00 
.  58  52E  +  00 

.13406+01 

.1543E+01 

.19176+01 

.27226+01 

.41236+01 

.97896+00 

.98956+00 

.28766+05 

.15826+05 

-.45486+01 

-.86056+01 

. 1 594E-03 
.4773E-Q4 

.9065E+00 

.1664E+01 

.69466+01 

.84046+01 

£& 

\*\ 


-  194  - 


■»? «+l  W*j'n*j' WvH+jVC* H»L>jW P+jW’ *l~ *i~*J~+»? ^jVi  «+j"  ■»/*■' 


.  %  ~-  '.  %  ■%-.-  %.  v 

-*B  +!  *1J  +■-  y>? ■ 


PIPE  LENGTH  =  2  FEET,  INSIDE  DIAMETER  =  1/2  INCH 
SOURCE  PRESSURE  =  20  PSIA,  SINK  PRESSURE  =  15  PS1A 


Z/L 

RE 

F 

MA2 

V/U 

PHI 

. 10S3E-01 

.14226+04 

. 11736-01 

. 15930-04 

-.  5097E  +  00 

.14166+01 

< 2105E-01 
.31585-01 
.42116-01 
• 5263E-01 
.63166-01 

.29186+04 
.•42426  +  04 
.58416+04 
.72686+04 
.87776+04 

.67876-02 
.45826-02 
. 3437E-U2 
.27556-02 
.22926-02 

. 67 13E-04 
. 1+82E-03 
.26946-03 
.41766-03 
. 60946-03 

-.  2485E+00 
-.1672E+00 
-.12456+00 
-. 1C03E+  00 
-. S334E-01 

.12636+01 
.1239E+01 
.1233E+01 
.12326+01 
.1231 E+ 01 

.7368S-Q1 
. 84216-01 
.94746-01 
• 10536+00 
.11586+00 

.1023E+05 
.11706+05 
.13236+05 
.14716+05 
. 16 17E+05 

.19596-02 
.17216-02 
.15166-02 
. 1367  E -  02 
•  1241  6- O'1 

.82676-03 
.10896-02 
.  1 38  2E-02 
.17206-02 
.20326-02 

-.71*26-01 
-.62866-01 
-.56286-01 
-.  5067E-01 
-.46426-01 

.12328+01 
. 1230E+01 
.12336+01 
.1231E+01 
.1231E+01 

.12636+00 
.13686+00 
.  1474E  +  00 
.  1579E  +  00 
.  1684E  +  00 

.17766+05 
.192faE+05 
.20826+05 
.22326+05 
.23956  +  V/5 

.11336-02 

.1041E-C2 

.96756-03 

•S015E-02 

.84276-03 

.25076-02 

.29526-02 

•2460E-02 

.39S4E-02 

.45936-02 

-.4262E-01 
->39676-01 
-.36936-  01 
-.34796-01 
-.3272E-01 

.12316+01 
.12326+01 
•1231 E+ 01 
.12316+01 
.12306+01 

.  17  39E  +  00 
.1895E+00 
. 2000E+00 
.21056+00 
.22116+00 

.25556+05 

.27186+05 

.28736+05 

.30406+05 

•32C3E+05 

.78906-03 

.74416-03 

.70316-03 

.56576-03 

.63166-03 

-.52196-  02 
.59286-02 
. 6o43£-02 
.74676-02 
.82366-02 

-.31126-01 
-.29516-01 
-.28276-01 
-.26996-01 
-. 2602E-01 

. 1231E+01 
.12306+01 
.1230E+01 
.12306+01 
.12306+01 

.23166+00 

.24216+00 

.25266+00 

.26326+00 

.27376+00 

.33836+05 
.35476+05 
.37286+05 
.  3894E  +  05 
.40806+05 

.  5995  E-03 
.  5714F-03 
.54516-03 
.52156-03 
.49946-03 

. 9260E-02 
.1021E-01 
.il3,'.E-01 
.  1239E-01 
.13666-01 

-.24976-01 
-. 2421E-01 
-.23356-01 
-.22746-01 
-.22016-01 

.12296+01 

.12306+01 

.1229E+01 

.12296+01 

.12286+01 

. 28426+00 
.29476+00 
.30536+00 
.31 58E+00 
.32636+00 

.+2556+05 

.4454E+05 

.46366+05 

.48406+05 

.50256+05 

.47886-03 
.4597 E-03 
.4416E-03 
.42476-03 
.4086E-03 

.  1490E-01 
, 1637E-01 
.17796-01 
•  1948C-01 
.21106-01 

-.21536-01 
-. 2092E-01 
-. 2C  54E-01 
-.2002E-01 
- . 1S73E-01 

.  1228E  +  01 
.1228E+01 
.12286+01 
.12276+01 
.12276+01 

.33686+00 

.3474E+00 

.35796+00 

.36846+00 

.37896+00 

.52396+05 

.54316+05 

.5655E+05 

.58586+05 

.60966+05 

.39356-03 

.37986-03 

.36686-03 

.35426-03 

.34116-03 

.23046-01 
.24906-01 
.271 56-Ci 
. 2929E-01 
•3191E-01 

-.19236-01 
-. 1906E-01 
-.18676-01 
-.18315-01 
-.18136-01 

.1226E+01 
.12266+01 
.12256+01 
.12246+01 
.  1224E  +  01 

.38956+00 

.40006+00 

.41056+00 

.42116+00 

.43166+00 

.63076+05 

•6559E+05 

.67796+05 

.70476+05 

.72776+05 

.3300E-03 

.31876-03 

•3089E-03 

.29896-03 

.29066-03 

.3+386-01 

.37446-01 

.40306-01 

.43896-01 

.47246-01 

-.18086-01 
-.17806-01 
-.17746-01 
-.17506-01 
-.  1749E-01 

.  1223E  +  01 
.12236+01 
.1222E+01 
.12216+01 
.12206+01 

.44216+00 

.45266+00 

.46326+00 

.47376+00 

.48426+00 

.75646  *05 
.78076+05 
.81156+05 
.83736+05 
.87056+05 

.2800E-03 

.27216-03 

.26366-03 

.25656-03 

.24686-03 

.51506-01 

.55456-01 

.60546-01 

.65256-01 

•7140E-01 

-.17296-01 
-.17326-  01 
-.17166-01 
-.17226-01 
-.17116-01 

.12206+01 
.12186+01 
.12186+01 
. 1215E+01 
. 1215E+01 

.49476+00 

.8974E+05 

.24826-03 

. 7  692E-01 

-.  8604E-02 

.12126+01 

Jfc 


.5153E+00 
.52636+00 
. 5368E+00 

.89746+05 
.8789E+05 
. 8692E+05 

.2575E-03 

.6836E-03 

.1593E-02 

.76896-01 

.7293E-01 

•7102E-01 

.6357E-02 

.70516-02 

.73596-02 

.1210E+01 
. 1203E+01 
. 1 187E+  01 

•  5474E+00 
• 5579E+00 
. 56846+00 
. 5789E+00 
.58956+00 

.84936+05 
.83746+05 
.81776+05 
. 8046E+05 
.78526+05 

.3230E-02 
. 5464E-02 
. 8059E-02 
. 1083E-01 
. 1355E-01 

.6702E-01 
.64  8  5E-01 
.61266-01 
. 5911E-01 
•5587E-01 

.81386-02 
.85056-02 
.92116-02 
. 95696-02 
.10226-01 

.1172E+01 
. 1155E+01 
.11426+01 
.11286+01 
.11186+01 

. 6000E+00 
.610SE+00 
•6211E+00 
.6316E+00 
•6421E+00 

.7710E+05 

.75186+05 

•73686+05 

•7177E+05 

.70196+05 

. 1601E-01 
.1809E-01 
. 1988E-01 
•2143E-01 
.2278E-01 

. 5373E-01 
.50796-01 
.4866E-01 
•4593E-01 
.4333E-01 

.10576-01 
.11176-01 
. 1154E-01 
.12136-01 
.12556-01 

. 1 1 09E+  01 
.11036+01 
.10966+01 
. 1091E+01 
.10366+01 

.6526E+00 
.66326+00 
. 67376+00 
.68426+00 
.6947E+00 

.68276+05 
.66616+05 
•6467E+05 
. 62946+05 
.  6099E+05 

.2394E-01 
.2496E-01 
.2585E-01 
•2664E-Q1 
.  2739E-01 

.41286—01 

.39206-01 

.36816-01 

.3478E-01 

.32546-01 

.13166-01 
.13636-01 
.14296-01 
. 1482E-01 
.15546-01 

.10836+01 

.10796+01 

.10766+01 

.10746+01 

.10716+01 

• 70536+00 
•71586+00 
.72636+00 
.7368E+00 
.74746+00 

.  S919E+05 
•5721E+05 
.55356+05 
.5335E+05 
•  51446+05 

.  2809E-01 
.  2382E-01 
.29666-01 
.30536-01 
.31336-01 

.3057E-01 

.28466-01 

.26586-01 

.2460E-01 

•2281E-01 

.  1617E-01 
.16976-01 
.17706-01 
.  1861E-01 
.19476-01 

. 1 069E+  01 
. 1067E+01 
.10656+01 
.10646+01 
.10626+01 

.75796+00 
.7634E+00 
.77  896+00 
.78956+00 
. 8000E+00 

. 49426+05 
.  4  7  4  5  E  +  0  5 
.45416+05 
.4340E+05 
.4133E+05 

.32186-01 
.33226-01 
,34506-01 
.35856-01 
.3711 E-91 

.20986-01 

.19296-01 

.1760E-01 

.16036-01 

.14496-01 

.20526-01 

.21566-01 

.22796-01 

.24046-01 

.25516-01 

.10606+01 

.1059E+01 

.1057E+01 

.10556+01 

.10546+01 

.81056+00 
.82116+00 
.83166+00 
.  84216+00 
•  85266+00 

.39276+05 
.37176+05 
.  3507E  +  05 
. 32946+05 
.3080E+05 

.38396-01 

.40086-01 

.4247E-01 

.45266-01 

.4847E-Q1 

.13046-01 

.1164E-01 

.10336-01 

.90846-02 

.7917E-02 

.27066-01 

.28886-01 

.30836-01 

.33126-01 

.35666-01 

.10526+01 
.  1050E+01 
.1049E+01 
.1047E+01 
.10466+01 

.86326+00 
.  87376+00 
.8842E+00 
.  89476+00 
.90536+00 

.28666+05 
.26506+05 
.  24326+05 
.  22126+05 
.  20016+05 

.52666-01 
.  5816E-01 
.6432E-01 
.6993E-01 
.7574E-01 

.68226-02 

.58086-02 

.4876E-02 

.40216-02 

.32636-02 

.38676-01 
•  42 1 0E-01 
.  4620E-01 
•5106E-01 
.5698E-01 

.  1045E+01 
.1044E+01 
.10446+01 
.10456+01 
.10476+01 

.91566+00 

.92636+00 

.93686+00 

.94746+00 

.95796+00 

. 1789E+05 
. 1577E+05 
.1356E+05 
. 11246+05 
. 89756+04 

.81236-01 

.1055E+00 

.16216+00 

.21166+00 

.27366+00 

.2581E-02 
.1981E-02 
•1451E-02 
.99256-03 
.63  00E-03 

.64386-01 
.7388E-01 
. 8660E-01 
. J050E+00 
.13206+00 

.  1 049  E+  01 
.10466+01 
.10536+01 
.1074E+01 
. 1116E+01 

.9684E+00 
.97896+00 
•  98956+00 

. 66576+04 
.44146+04 
.21176+04 

. 4248  E  +  00 
.87556+00 
.1797E+01 

.34436-03 

.1512E-03 

.32936-04 

.17906+00 
.27046+00 
. 5865E+00 

•1190E+01 

.13726+01 

.23816+01 
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PIPE  LENGTH  =  2  FEET,  INSIDE  DIAMETER  =  1/2  INCH 
SOURCE  PRESSURE  =  30  PSIA,  SINK  PRESSURE  =  15  PSIA 


1/ L 

Rc 

F 

M  A  2 

v/u 

PHI 

10536-01 
,21056-01 
3158c  —  01 
42116-01 
52636-01 

. 2962E+04 
.59916+04 
.39526+04 
.12006+05 
.14976+05 

.56366-02 
.33346-02 
.  2259E-02 
.16896-02 
.  13  5  8  £- 02 

.30596-04 
.12546-03 
.28056-03 
•  5042E-03 
.78666-03 

-.50276+00 

-.24866+00 

-.16676+00 

-.12486+00 

-.10046+00 

•1422E+01 

.1259E+01 

•  1236E  +  01 

•  1232E  +  01 
.12316+01 

*  63 1 6E-01 
,73686-01 
,84216-01 
i  9474E-01 
•1053E+ 00 

.1806E+05 
.21116+05 
.  24046  +  05 
.27506+05 
.3024E+05 

.1125E-02 
.96166-03 
.84736-03 
.73666-03 
•  67  30E-03 

.11446-02 

.15636-02 

.20536—02 

.26336-02 

.32596-02 

-.8378E-01 

-.72286-01 

-.63466-01 

-.56856-01 

-.S141E-01 

.  1231E+01 
•1232E+01 
.12306+01 
.12336+01 
•1229E+01 

,  1158E  +  00 
,  12636+00 
,  13636+00 
,  14746+00 
,15796+00 

.33636+05 

.36716+05 

.40256+05 

.43186+05 

.46696+05 

.60266-03 

.55406-03 

.50316-03 

.46996-03 

•4343E-U3 

.39916-02 
.47996-02 
.57126-0 2 
.  6686E-02 
.77876-02 

-.  471 7E-01 
-.43516-01 
-.40596-01 
-.  3798E-01 
-.35886-01 

.12316+01 

.12306+01 

.12316+01 

.12296+01 

.12306+01 

,  1684E  +  00 
■1789E+00 
■1895E+00 
,20006+00 
21056+00 

.4995E+05 
.53706+05 
.57026+05 
. 60  75E v05 
.64136+05 

.40576-03 

.37706-03 

.3564E-03 

.33276-03 

.3174E-03 

.89896-02 
.  1033E-01 
.11776-01 
.13356-01 
.15076-01 

-.33946-01 

-.3238E-01 

-.30906-01 

-.2971E-01 

-.28556-01 

.12296+01 
. 1229  E+  01 
.12296+01 
.12286+01 
.  1228E+01 

,22116+00 
i  2316E  +  00 
24216+00 
25266+00 
2632E+00 

.6807E+05 

.71756+05 

•7597E+05 

.79816+05 

.84156+05 

.29846-03 
.28356-03 
.26926-03 
.  2567E-03 
.24516-03 

.16966-01 

.19046-01 

.21316—01 

.23796-01 

.2649E-01 

-.27656-01 

-.26736-01 

-.26036-01 

-.25306-01 

-.24766-01 

.12276+01 

.12C7E+01 

.1226E+01 

.1227E+01 

.12246+01 

,  27  37E+00 
28426+00 
2947E+00 
30536+00 
,  31 58E  +  00 

•8809E+05 
• S262E+05 
.96396+05 
.10186+06 
.10656+06 

.23496-03 

•2250E-03 

.21616-03 

.20596-03 

.19906-03 

.29456-01 
.  3269E-01 
.36296-01 
.40226-01 
.44646-01 

-.  24 19E-01 
-.  2377E-01 
-.23326-01 
-.23016-01 
-.22666-01 

.12256+01 
.  1222E+01 
.12246+01 
.  1220E  +  01 
•1222E+01 

,  3263E  +  00 
33686+00 
,34746+00 
,35796+00 
3634E+00 

.1117E+06 

.11676+06 

.12226+06 

.12766+06 

.13356+06 

.19136-03 

.18406-03 

.17746-03 

.16796-03 

.16386-03 

• 4944E-01 
.54906-01 
•  60806-01 
.67656-01 
.7505E-01 

-.2243E-01 
-.2218E-01 
-.22036-01 
-.  2 1  86E-01 
-.  2178E-01 

.12176+01 
.12206+01 
.  1214E  +  01 
.12186+01 
.12116+01 

37896+00 

38956+00 

40006+00 

41056+00 

42116+00 

.13946+06 
.1458E+06 
.15246+06 
.15946+06 
. 1668E+06 

.15656-03 

.15266-03 

.14796-03 

.14146-03 

.13676-03 

.83786-01 

.93306-01 

•1047E+00 

.1173E+00 

.13306+00 

-.2169E-01 

-.2166E-01 

-.21666-01 

-.2170E-01 

-.21806-01 

.12146+01 
.1206E+01 
.  1210E+01 
.12006+01 
.12046+01 

,43166+00 

,44216+00 

,45266+00 

,46326+00 

,47376+00 

.17456+06 
.18306+06 
.19176+06 
.  2014E  +  06 
.21136+06 

.13826-03 

.12856-03 

.13246-03 

.12776-03 

.13546-03 

.14996+00 
•1726E+00 
.19736+00 
•  2321E  +  00 
.27096+00 

-.21896-01 
-.  22 10E-01 
-.22286-01 
-.22656-01 
-.  2295E-01 

.11936+01 
.11966+01 
.11836+01 
.  1184E+01 
.11696+01 

4842E+00 

,49476+00 

.22356+06 

.23496+06 

.12946-03 

.1371E-03 

.  33346  +  00 
.40516+00 

-.  2361 E-01 
-.12156-01 

. 1 1 64E+  01 
.11526+01 
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. 51586+00 
.52636+00 

.23576+06 

.23356+06 

.14685-03 

.12146-02 

.41116+00 

.39546+00 

.34596-02 

.39816-02 

.11476+01 

.1144E+01 

.53685+00 
.54746+00 
• S5796+00 
.56846+00 
.57896+00 

.23016+06 

.22686+06 

.22286+06 

.21956+06 

.21546+06 

.25066-02 

.44856-02 

.68796-02 

.95276-02 

.12346-01 

.37165+00 

.35136+00 

.32896+00 

.31296+00 

.29446+00 

.47676-02 

.55106-02 

.63186-02 

.68866-02 

.75935-02 

.11446+01 
.1136E+01 
.1133E+01 
.11296+01 
. 1123E+01 

.58956+00 

.60006+00 

.61056+00 

.62116+00 

.63166*00 

.21166+06 

.20776+06 

.20366+06 

.19956+06 

.19546+06 

.15026-01 

.17376-01 

.19426-01 

.21176-01 

.22626-01 

.28006+00 

.26526+00 

.25196+00 

.23885+00 

.22655+00 

.81166-02 
.86736-02 
.91925-02 
. 97  09  E-02 
.10226-01 

.11206+01 
.11175+01 
. 11126+01 
.11116+01 
.11076+01 

.64216+00 

.65266+00 

.66326+00 

.67376+00 

.68426+00 

.19116+06 

.18685+06 

.18246+06 

.17786+06 

.17316+06 

.23816-01 

.24796-01 

.25626-01 

.26396-01 

.27136-01 

.21446+00 

.20286+00 

.19125+00 

.17996+00 

.16885+00 

.10746-01 
.11286-01 
. 11 86E-01 
.12466-01 
.13116-01 

. 1106E+01 
.11036+01 
.11026+01 
. 1099E+01 
.1098E+01 

.69476+00 

.70536+00 

.71536+00 

.72636+00 

.73686+00 

.16846+06 

.16356+06 

.15856+06 

.15356+06 

.14846+06 

.27866-01 

.28576-01 

.29256-01 

.29936-01 

.30656-01 

.15806+00 
.14745+00 
.13736+00 
.  12736  +  00 
.11786+00 

.  1379E-01 
.14536-01 
.15316-01 
.16156-01 
.17056-01 

.10956+01 
.  10936  +  01 
.  1 09 1 E+  01 
.10886+01 
.10866+01 

.74746+00 
. 75796+00 
.76846+00 
.77896+00 
.78956+00 

.14326+06 

.13806+06 

.13266+06 

.12726+06 

.12176+06 

.31466-01 

.32366-01 

.33416-01 

.34596-01 

.35776-01 

.10856+00 

.99676-01 

.91136-01 

.82996-01 

.75196-01 

.1802E-01 
.  1S066-01 
.20196-01 
.2142E-01 
.  2276E-01 

•1084E+01 
•1083E+01 
.10816+01 
.  1079E+01 
.10776+01 

.80005+00 

.81056+00 

.82116+00 

.83166+00 

.84216+00 

.11616+06 

.11046+06 

.10476+06 

.98936+05 

.93136+05 

.  3695-6-01 
.38326-01 
.40156-01 
.42356-01 
.44485-01 

.67826-01 

.60776-01 

.54165-01 

.47896-01 

.4206E-01 

.24236-01 
.25866-01 
.27676-01 
.29696-01 
.  31956-01 

.  1076E  +  01 
•1074E+01 
.10726+01 
.10706+01 
.10676+01 

.85266+00 

.86326+00 

.87376+00 

.88426+00 

.89476+00 

.87136+05 

.81206+05 

.75126+05 

.69016+05 

.62866+05 

.46456-01 

.48835-01 

.52546-01 

.57725-01 

.64126-01 

.36565-01 
.31455-01 
.26706-01 
.22376-01 
. 1841E-01 

.34546-01 
.  37  5  2  E-  01 
.4101E-01 
.45086-01 
.49986-01 

.  1065E  +  01 
.10636+01 
.10616+01 
.10596+01 
.10576+01 

.90536+00 

.91586+00 

.92636+00 

.9368E+00 

.94746+00 

.56686+05 

.50336+05 

.44225+05 

.37976+05 

.31586+05 

.71876-01 

.80856-01 

.93176-01 

.11236+00 

.13706+00 

. 1435E-01 
.11665-01 
. 3906E-02 
.65136-02 
.4499E-02 

, 5594E-01 
.6342E-01 
.72916-01 
. 8561E-C1 
.10326+00 

. 1056E+01 
.10576+01 
.10596+01 
.10636+01 
.1Q71E+01 

.95795+00 

.96846+00 

.97895+00 

.98956+00 

.25455+05 

.19716+05 

.13556+05 

.70936+04 

.16945+00 

,22536+00 

.42626+00 

.87136+00 

.28756-02 
.16496-02 
.74626-03 
. 1924E-03 

.12976+00 
. 1731E+00 
.25976+00 
.51806+00 

.10876+01 

.11086+01 

.11336+01 

.12676+01 

PIPE  LENGTH  =  2  rEET,  INSIDE  DIAMETER  =  1/2  INCH 
SOURCE  PRESSURE  =  45  PSIA,  SINK  PRESSURE  =  15  PSIA 


Z/L 

RE 

P 

MA2 

V/U 

PHI 

.10536-01 
•21056-01 
• 31586-01 

• 2043E+04 
•4194E+04 
.6616E+04 

.99976-02 
.48086-02 
. 3095 E- 02 

.61816-05 
.2605E-04 
. 6486E-04 

-.10656+01 

-.51916+00 

-.32926+00 

.1259E+01 

.12346+01 

.12246+01 

.4211E-01 
. 5263E-01 
•6316E-01 
. T368E-01 
. 84216-01 

.9181E+04 
•1207E+05 
•1513E+05 
.  1857E  +  05 
.2225E+05 

•2145E-02 

.16446-02 

•1299E-02 

•1063E-02 

•8823E-03 

.  1249E-03 
.  2158E-03 
.  3394E-03 
•5116E-03 
•7346E-03 

-.23766+00 

1812E+00 

-.14496+00 

-.11356+00 

-.9948E-01 

•1225E+01 
.12256+01 
.12276+01 
. 1 227E+  01 
•1228E+01 

•5474E-01 
. 10536+00 
.11586+00 
. 1263E+00 
• 1368E+00 

•2636E+05 

•3083E+05 

.3578E+05 

•4100E+05 

.4598E+05 

•7469E-03 
.  6365  E-03 
.54S2E-03 
.4777E-03 
.42746-03 

.10336-02 
.  1412E-02 
.19136-02 
.2496E-02 
. 3169E-02 

-.8442E-01 
-. 7296E-01 
-.6329E-01 
-.56306-01 
-.50606-01 

.12276+01 
. 1 229E+  01 
.1228E+01 
.1230E+01 
.1229E+01 

.1474E+00 
• 1579E+00 

•  16846+00 

•  17896+00 
• 18956+00 

.  5106E  +  05 
.  5707E+05 
.  6134E  1-05 
•6770E+05 
•7296E+05 

.38726-03 
.  3459E-03 
.32446-03 
•2957E-03 
•2759E-03 

.  39  20E-02 
•4831E-02 
.  5735E-02 
.68896-02 
. 8069E-02 

-.46306-01 
-.4258E-01 
-.39726-01 
-. 37 1 3E- 01 
-.35146-01 

.12296+01 
•1231E+01 
.1228E+01 
.12306+01 
.  1229E  +  01 

. 20006+00 
. 2105E+00 
.2211 E+ 00 
• 2316E+ 00 
«  24  2 1E  +  00 

•7917E+05 
.  8413E  +  05 
•S094E+05 
.9663E+05 
.  1039E  +  06 

.  2577E-03 
.24356-03 
.22726-03 
.2163E-03 
.20076-03 

.  9477E-02 
.10896-01 
.  12  65E-01 
.14446-01 
.  1662E-01 

-. 3226E-01 
-.3183E-01 
-.30436-01 
-. 29  37  E-01 
-. 2831E-01 

.  1229E  +  01 
•1228E+01 
.  1228E  +  01 
.12276+01 
.1228E+01 

. 2526E+00 
.26326+00 
. 2737E+00 
.28426+00 
• 2947E+0Q 

•  10966+06 
.1169E+06 
.  1234E  +  06 
.  1312E  +  06 
.13866+06 

.19296-03 

.17736-03 

.16966-03 

.15906-03 

.14976-03 

•  1379E-01 
.2142E-01 
.2416E-01 
.  2743E-01 
.30916-01 

-.  27  52E-01 
-.2675E-01 
-.2613E-01 
-.2555E-01 
-. 25 10E-01 

.1225E+01 

.12296+01 

.12226+01 

.1226E+01 

.12216+01 

. 30536+00 
• 31586+00 
. 32636+00 
. 33686+00 
• 34746+00 

.  1469E  +  06 
.15486+06 
.  1637E  +  06 
.  1720E+Q6 
.  1818E  +  06 

. 1406E-03 
•1314E-03 
.12696-03 
.12216-03 
.11096-03 

.34986-01 

.3933E-01 

•  4449E-01 
.4994E-01 

•  5665E-01 

-.24696-01 
-. 2437E-01 
-. 2407E-01 
-.23866-01 
-.23716-01 

. 1 225  E+  01 
.12206+01 
♦1222E+01 
.12166+01 
•1221E+01 

. 35796+00 
• 3664E+00 
. 37896+00 
.38956+00 
.40006+00 

.  1912E  +  06 
. 2020E+06 
.2127E+Q6 
. 2244E+06 
.  2368E+06 

.11416-03 
.10206-03 
.10716-03 
.10516-03 
. 861 3E-04 

.63  8  0E-01 
.72536-01 
.82246-01 
.93636-01 
.10746+00 

-.23556-01 
-.22506-01 
-.2343E-01 
-. 2346E-Q1 
-.2350E-01 

.12136+01 
.  1 217E+01 
.1207E+01 
.12116+01 
.1203E+01 

.410  56  +  00 
.42116+00 
.43166+00 
.44215+00 
. 4526E+00 

.2503E+06 
. 2630E+06 
•27936+06 
.2947E+06 
•3125E+Q6 

•  9176  E-04 
.9688E-04 
.72096-04 
.8621 E-04 
.88036-04 

.12426+00 

.1422E+00 

.16876+00 

.1984E+00 

.23926+00 

-. 2369E-01 
2372E-01 
-.24126-01 
-.2430E-01 
-.24816-01 

.  1207E  +  01 
•1193E+01 
•1199E+01 
.11836+01 
.1182E+01 

.4632E+00 

•4737E+C0 

.4842E+00 

.4947E+00 

.33065+06 

.3559E+06 

.37556+06 

.4080E+06 

.83996-04 
.81836-04 
.  9598E-04 
. 1145 E-03 

.29116+00 

.38406+00 

.49336+00 

.76476+00 

-.25216-01 
-.26286-01 
-. 2739E- 01 
-. 14  95E-01 

.  1167E+01 
.11556+01 
.11466+01 
.11136+01 
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.51586+00 

.52635+00 

.53685+00 

.54745+00 

.55795+00 

.4310E+06 

.4264E+06 

.4165E+06 

.40945+06 

.40415+06 

.19325-03 

.22445-02 

.51205-02 

.84866-02 

.11556-01 

.10835+01 

.99345+00 

,85665+00 

.7894E+00 

.7474E+00 

.17305-02 

.26075-02 

.40936-02 

.48285-02 

.5280E-32 

.1059E+01 
.  1067E  +  01 
.1Q32E+01 
.10905+01 
.10985+01 

.56845+00 

.57895+00 

.58955+00 

.60006+00 

•6105E+00 

.39805+06 

.39246+06 

.3853E+06 

.37825+06 

.37125+06 

.14185-01 

.16055-01 

.17665-01 

.19145-01 

.20466-01 

.7090E+00 
. 6775E+00 
.63615+00 
.59895+00 
.56555+00 

. 56  69E-02 
.5S83E-02 
.6491E-02 
.6958E-02 
.73955-02 

.1102E+01 

.11086+01 

.11105+01 

.11145+01 

.1116E+01 

.62115+00 

.63165+00 

.64215+00 

.65265+00 

.66326+00 

.36316+06 

.35535+06 

.34725+06 

.3384E+06 

.32965+06 

.21675-01 
.2263E-01 
.23485-01 
.24315-01 
. 2505 E- 01 

. 5273E+00 
.49485+00 
.46115+00 
.42745+00 
.39575+00 

.79915-02 

.84965-02 

.90965-02 

.9769E-02 

.10465-01 

.11165+01 

.1117E+01 

.11195+01 

.11176+01 

.11185+01 

.67375+00 

.68425+00 

.69475+00 

.70536+00 

.71585+00 

.32045+06 

.3109E+06 

.30115+06 

.29135+06 

.28125+06 

.2577E-01 
.  2653E-01 
.27355-01 
.28195-01 
.29005-01 

.364SE+00 

.33486+00 

.30595+00 

.27906+00 

.2535E+00 

.1121E-01 
.12035-01 
.  1292E-01 
.  1386 E- 01 
.1487E-01 

.11175+01 
.  1116E+01 
.11125+01 
.1111E+01 
.  1 1 07  E+  01 

.72636+00 

.73685+00 

.74745+00 

.75795+00 

.76845+00 

.27096+06 
.  2604E  +  06 
.  2496E  +  06 
.23866+06 
.2274E+06 

•2983E-01 

.30796-01 

•3197E-01 

.33436-01 

.35046-01 

.22955+00 

.20695+00 

.18575+00 

.16595+00 

.14755+00 

.15955-01 
.  1712E-01 
.1341E-01 
.19305-01 
.21 32E-01 

.11055+01 
•1102E+01 
•  1 099E+  01 
.1096E+01 
. 1094E+01 

.7789E+00 

.78955+00 

.80005+00 

.81055+00 

.82115+00 

.2160E+06 
.2044E+06 
.19275+06 
.  1809E  +  06 
.16885+06 

.36686-01 
.3832E-01 
.400 1-5-01 
.41825-01 
.43725-01 

.13045+00 
.  1146E  +  00 
.99995-01 
.86555-01 
.7417E-01 

.  2298E-01 
.24825-01 
.26885-01 
.  2920E-01 
.  31 86E-01 

.10915+01 
.10885+01 
.1085E+01 
.  1032E  +  01 
.10805+01 

.83165+00 
. 84  21 E+  0  0 
.85265+00 
.86325+00 
.87375+00 

.15665+06 

.14416+06 

.13145+06 

.11885+06 

.10605+06 

.45875-01 
.49025-01 
.53  50  5—01 
.59085-01 
.6716E-01 

.62775-01 
.5239E-01 
.43025-01 
.34685-01 
. 2730E-01 

.3495E-01 
.38595-01 
.42915-01 
.4808E-01 
.  5454E-01 

.1077E+01 
.10755+01 
.1072E+01 
.  1069E  +  01 
. 1067E+01 

.8842E+00 

.89475+00 

.90535+00 

.91586+00 

.92636+00 

.93035+05 

.80155+05 

.68596+05 

.57645+05 

.4778E+05 

.79925-01 
.9478E-01 
.10875+00 
. 1318E+00 
.16216+00 

.2082E-01 
.15295-01 
. 1109E-01 
.7797E-02 
.5331E-02 

.62755-01 

.7345E-01 

.86596-01 

.10375+00 

.12525+00 

. 1066E+01 
. 1068E+01 
•1072E+01 
.10795+01 
. 1092E+01 

<  9368E  +  00 
.94745+00 
.95796+00 
.96845+00 
.9739E+00 

.39175+05 
.31685+05 
.24715+05 
.18106+05 
. 1164E+05 

.15345+00 
.13725+00 
.29355+00 
.63  80E  +  00 
,12375+01 

.35255-02 

.22265-02 

.12966-02 

.66955-03 

.27105-03 

. 15  27E+  00 
.1901E+00 
. 2477E+00 
.3445E+00 
.54235+00 

.1113E+01 
.11435+01 
. 1 169  E  +  01 
.11726+01 
. 1240E+01 

.98955+00 

.51065+04 

.2299E+01 

.51855-04 

. 1242E+01 

.17486+01 
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PIPS  I.ENGTH  =  2  FEET,  INSIOE  DIAMETER  =  1/4  INCH 
SOURCE  PRESSURE  =  20  PSIA,  SINK  PRESSURE  =  15  PSIA 


l/l 

RE 

F 

MA  2 

V/U 

PHI 

.1053E-01 
• 2105E-01 

.6110E+03 
•  1325E  +  04 

.27566-01 

.14966-01 

•  1076E-04 
.  5067E-04 

-. 26  94  E+  00 
-. 1244E+00 

.13006+01 

.12386+01 

•3158E-C1 
.42116-01 
.52636-01 
.63166-01 
. 7368E-01 

,19396+04 

.26586+04 

•3277E+04 

.40056+04 

.46326+04 

.  1032E-01 
.755QE-02 
.61146-02 
.5010E-02 
•4328E-02 

.1085E-03 
.20396-03 
.31026-03 
.  4633E-03 
•  6204E-03 

-. 85306-01 
-.62496-01 
-.51006-01 
-.4201E-Q1 
-.36656-01 

.1229E+01 

.12306+01 

.12306+01 

.12306+01 

.1230E+01 

.84216-01 
• 9474E-01 
. 10536+00 
. 11586+00 
• 12636+00 

.  5375E  +  04 
.60076+04 
.6783E+04 
.  74Q5E  +  04 
.82266+04 

.37346-02 

.3341E-02 

.29586-02 

.2715E-02 

.24426-02 

.83506-03 
.  1046E-02 
.13296-02 
.15966-02 
.19  5  6E- 02 

-.31896-01 
-.28846-01 
-.25916-01 
-.23986-01 
-. 22  01 E- 01 

.12316+01 
.12306+01 
.  1231E  +  01 
. 1229E+  01 
.12316+01 

.13686+00 
♦14746+00 
♦ 15796+00 
.16846+00 
.17896+00 

.88826+04 

.96426+04 

.10466+05 

.11186+05 

.11956+05 

.2264E-02 

.20906-02 

.19206-02 

.18016-02 

.1687E-02 

.22916-02 

.27216-02 

.31546-02 

.36646-02 

.41736-02 

-.20706-01 
-. 1930E-01 
-.18386-01 
-.1733E-01 
-.16686-01 

.12306+01 
.12306+01 
.1231E+01 
.1230E+01 
•  1230E  +  01 

.18956+00 
• 2000E+00 
.21056+00 
.22116+00 
. 23 16E+00 

.12826+05 
.13656+05 
.  1447E  +  05 
».  15316  +  05 
•1628 E+05 

•1570E-02 

.14796-02 

.1394E-02 

.13206-02 

.12426-02 

•4813E-02 
.54306-02 
.617  6E-02 
.6908E-02 
.7833E-02 

-. 1588E-01 
-.1541E-01 
-.1479E-01 
-.1445E-01 
-. 1396E-01 

. 1 231 E+  01 
. 1 230E+  01 
. 1230E+01 
. 1229E+01 
.12306+01 

. 2421E+00 
.25266+00 
.2632E+00 
.27376+00 
.2842E+00 

.  17  22E  +  05 
.18186+05 
.1910E+05 
.20176+05 
.21246+05 

.11796-02 

.1112E-02 

.10646-02 

.10106-02 

.96066-03 

.  8727E-02 
•9816E-02 
.10876-01 
.12205-01 
.13506-01 

-.1372E-01 
-.13356-01 
-.13196-01 
-. 1290E-01 
-.1281E-01 

.  1229E  +  01 
.  1231E  +  01 
.12276+01 
.  1229E  +  01 
.  1227E+01 

• 2947E+00 
.3053E+00 
. 3158E+00 
.32636+00 
*  3368E  +  00 

.22426+05 

.23545+05 

.24786+05 

.25986+05 

.2734E+05 

.9047E-03 

.87166-03 

.82506-03 

.7912E-C3 

.7478E-03 

.15126-01 

.16706-01 

.1867E-01 

•2061E-01 

.23056-01 

-.1260E-01 
-.12566-01 
-. 1242E-01 
-. 1244E-01 
-.1235E-01 

.  1 2  30  E+  01 
. 1 226E+01 
.1229E+01 
.  1226E+01 
.12286+01 

• 3474E+00 
• 3579E+00 
. 36  34E  +  00 
. 3789E+00 
.38956+00 

.28706+05 

.30245+05 

.31786+05 

.33496+05 

•3517E+05 

.71996-03 

.68396-03 

.65576-03 

.62266-03 

.59876-03 

. 2549E-01 
.  28566-01 
.31676-01 
•2558E-01 
.39586-01 

-.12416-01 
1239E-01 
-.12496-01 
-.12526-01 
-. 1268E-01 

.12246+01 

.12266+01 

.12226+01 

.12256+01 

.12216+01 

. 4000E+00 
.41056+00 
.42115+00 
. 4316E+00 
.4  4  2 1 E  +  0  0 

. 3707E+05 
.3398E+05 
.41146+05 
.  433SE  +  0  5 
•4587E+05 

.5660E-03 
.54586-03 
.51 93E-03 
.49516-03 
.47096-03 

.44636-01 
.49926-01 
.56636-01 
. 63  S7E-01 
•7314E-01 

-. 1278E-01 
-.12976-01 
-.13136-01 
-.13396-01 
-.13616-01 

.12236+01 

.12186+01 

.12206+01 

.12166+01 

•1216E+01 

•4526E+00 

.46326+00 

•4737E+00 

.48426+00 

.49476+00 

.48466+05 
.  5143E  +  0S 
.54516+05 
.58076+05 
.61706+05 

.45386-03 

.43466-03 

.41536-03 

.39376-03 

.38746-03 

.83415-01 

.96786-01 

.11216+00 

.13286+00 

.15706+00 

-.13926-01 
-. 1422E-01 
-.14626-01 
-.15056-01 
-.77766-02 

•12106+01 

.12106+01 

.12036+01 

.12026+01 

.11986+01 

,51586+00 

.61736+05 

.39756-03 

,52636+00 

.61496+05 

.84646-03 

• 5368E+00 

.60646+05 

.17846-02 

.54746+00 

.60006+05 

.33656-02 

.55796+00 

.58996+05 

.54436-02 

.56646+00 

.5816E+05 

.78026-02 

.57896+00 

.57106+05 

.10166-01 

.58956+00 

.56186+05 

.12286-01 

-60006+00 

.55106-.‘05 

.1409  E  —  0 1 

.61056+00 

.54136+05 

.1559E-01 

.62116+00 

. 5306E  +  0  5 

.16786-01 

.63166+00 

.  5206E  +  0S 

.  1773E-01 

.64216+00 

.50966+05 

•1847E-01 

.65266+00 

.49906+05 

.19036-01 

.66326+00 

.48756+05 

.19406-01 

.67376+00 

.47646+05 

.19586-01 

.68426+00 

.46476+05 

.19636-01 

.69476+00 

.45356+05 

.1966E-01 

.70536+00 

.44176+05 

.19756-01 

.71586+00 

.43006+05 

.19916-01 

.72636+00 

.41766+05 

.20126-01 

• 7368E+00 

.40  5  26  '.  0  5 

.20356-01 

.74746+00 

.39226+05 

.20606-01 

.73796+00 

.37526*05 

.20876-01 

.76846+00 

.36576+05 

.2118E-01 

.77896+00 

.  25216+0  5 

.21586-01 

.78956+00 

•3379E+05 

.22066-01 

.80006+00 

.32366+05 

.22616-01 

.81056+00 

.30876+05 

•  2327'6-01 

. 82 1 1E+00 

.29376+05 

.24066-01 

•  83166  +  00 

.27816+05 

.25006-01 

.84216+00 

.26256+05 

.26146-01 

.85266+00 

.24626+05 

.27496-01 

.86326+00 

.23016+05 

.29106-01 

.87376+00 

.21336+05 

.31146-01 

.88425+00 

.19636+05 

.33656-01 

.89476+00 

.17906+05 

.36736-01 

,9053E-rOO 

.16196+05 

.4169E-01 

.91586+00 

.14386+05 

•4822E-01 

.92636+00 

.12586+05 

.55746-01 

.93636+00 

.10866+05 

.6611E-01 

.9474E+CQ 

.91486+04 

.  8073E-01 

.95796+00 

.74066+04 

.  1 1 26E  +  00 

.96846+00 

.55646+04 

.19146+00 

.97396+90 

.36716+04 

.44066+00 

.98956+00 

.18416+04 

.94676+00 

.15735+00 

.15515+00 

.14375+00 

.14415+00 

.11276-02 
.  14 1 3E-02 
.20516-02 
.25146-02 

•  1 197  E  +  01 
.11306+01 
.1165 E+01 
.11456+01 

.1376t+00 
. 1329E+00 
•1271E+00 
.12265+00 
.11745+00 

.31036-02 

.34756-02 

.38956-02 

.4149E-02 

.44466-02 

.11296+01 
.11146+01 
.11036+01 
.  1095E+01 
.10886+01 

.1130E+00 
.1082E+00 
.  lO'iOE  +  OO 
.99445-01 
.95286-01 

.46436-02 
.  4  87 1 E-02 
.50386-02 
.52516-02 
.54236-02 

.10826+01 

.1079E+01 

.1075E+01 

.10736+01 

.10726+01 

.90835-01 
.86716-01 
.82396-01 
.7831E-01 
.  74  09E-01 

.56486-02 

.58476-02 

.6098E-02 

.63506-02 

.6654E-02 

.  1070E+01 
.10706+01 
.1069E+01 
.10696+01 
.1068E+01 

.70046-01 
.65886-01 
.61865-01 
.  5778E-01 
.  5385E-01 

.6970E-02 
.73416-02 
.7734E-02 
.81836-02 
. 66656-02 

. 1 06  8  E+  01 
.10676+01 
. 1066E+01 
.10666+01 
.1065E+01 

.4990E-01 
.46086-01 
.4228E-01 
.3862E-01 
. 3500E-01 

.92076-02 
.93036-02 
.  1047E-01 
.11216-01 
.12036-01 

. 1 064  E+01 
.1063E+01 
.10A1E+01 
.  1060E+01 
.1058E+01 

.31556-01 

.2818E-C1 

.2500E-01 

.21916-01 

.19036-01 

.12956-01 
.13996-01 
.15166-01 
.16496-01 
.  1801E-01 

.  1057E+01 
.1055E+01 
.10536+01 
.10526+01 
.10506+01 

.1628E-01 

.13756-01 

.11376-01 

.92435-02 

.72735-02 

.19806-01 

.21896-01 

.2438E-01 

.27396-01 

.31246-01 

.  1Q48E+01 
.  1045E+01 
.10436+01 
.10406+01 
.  1039E+01 

.55485-02 
.407  6E-02 
.28356-02 
.18246-02 
.10206-02 

. 3608E-01 
.42316-01 
.50856-01 
. 6362E-01 
.85336-01 

.1039E+01 
.10406+01 
.10426+01 
. 1046E+  01 
.10646+01 

.44236-03 
.  1 1 1 2E-03 

.12996+00 

.25936+00 

.11096+01 

.12286+01 
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APPENDIX  D:  One-Dimens ional  Model,  Computer  Code 

The  pages  that  follow  are  a  listing  of  the 
one-dimensional  computer  code.  A  warning  about  the  code 
should  be  mentioned.  As  discussed  in  Chapter  VII,  the  step 
size  used  in  marching  the  solution  down  the  pipe  depends  on 
the  local  Mach  number.  As  the  Mach  number  approaches  1,  the 
step  size  becomes  very  small.  If  the  initial  upstream 
internal  pressure  is  guessed  too  small,  a  problem  may  result 
where  the  step  size  becomes  so  small  that  the  solution 
doesn't  progress  down  the  pipe.  If  this  occurs,  guessing  a 
larger  initial  upstream  internal  pressure  will  solve  the 
problem. 


PROGRAM  ON  EOF  C I NPlT , CUT  PUT , T A  PE  1  =  1 N PUT » TA P E 2  =  CLT PUT , T A e E 3 , T A ? E*  ) 


C 

C  THIS  PROGRAM  USES  A  GKE-0  COMPRESSIBLE  FLOW  MODEL  WITH  FRICTION 
C  TO  FINO  HOW  PROPERTIES  VARY  IK  A  CLOSED  PIPE  WITH  BLOWING  AND 
C  SUCTION.  THE  BASIC  METHOD  IS  SHAPIRO'S  METHOO  OF  INFLUENCE 
C  COEFFICIENTS. 

C 

C  DEFINITION  OF  VARIABLES 
C 

C  A  CONSTANT  USED  IK  WALL  ELGWING  BOUNDARY  COKCITION 


C 

V 

c 

c 

c 

c 


B 

c 

C2 

D 

DELP 

OELW 


CGNSTANT  USED  IK  WALL  BLOWING  5 Q’JN D ARY  CCNC 
DUMMY  VARIABLE  USED  IK  CALCULATING  THE  WALL 
SPEED  OF  SOUNC  SQUARED  (CFT/SEC)2) 

PIPE  INSIDE  DIAMETER  (FT) 

CHANGE  IN  PO  FDR  BISECTION  METHOD  OF  FI ND IN 
CHANGE  IN  MASS  FLOW  RATE  DUE  TO  MASS  TRANSF 


ITION 

BOUNDARY  CONDITION 


G  ACTUAL  PO 
ER  AT  THE  WALL 


C 

C 

C 

C 

c 

c 

c 


DELX  SPACIAL  STEP  SIZE 

F  FRICTION  COEFFICIENT 

FF  SHAPIRO'S  FRICTION  INFLUENCE  COEFFICIENT 

FFP  SHAPIRO'S  FRICTION  INFLUENCE  COEFFICIENT 

FL  LAMINAR  FRICTION  COEFFICIENT 

FT  TUR3ULENT  FRICTION  COEFFICIENT 

FUD  CONSTANT  TO  ACCOUNT  FDR  STATISTICAL  VARIATION  OF  POROUS 


C 

c 

c 

c 

c 

c 

c 

c 

c 


PIPE  PROPERTIES 

FW  SHAPIRO'S  MASS  AODITON  INFLUENCE  COEFFICIENT 

FWP  SHAPIRO'S  MASS  ADOITON  INFLUENCE  COEFFICIENT 

GAMMA  RATIO  OF  SPECIFIC  HEATS 
N  STEP  COUNTER 

NM  ITERATION  COUNTER 

NN  NN= 1  FOR  FREDICTIO  LOOP,  NN=2  FOR  CORRECTOR  LGOP 

P  PRESSURE  (LBF/FT2) 

P 2  NEST  STEP'S  VALUE  OF  P 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


PcVAP  EVAPORATOR  ENVIRONMENT  PRESSURE 

P EX  ENVIORNMENT  PRESSURE 

PCOND  CONDENSER  ENVIRONMENT  PRESSURE 

PL  PIPE  LENGTH 

PLM  HALF  THE  PIPE  LENGTH 

PO  UPSTREAM  END  OF  PIPE  PRESSURE 

P 02  NEXT  STEPS  TOTAL  PRESSURE 

R  IDEAL  GAS  CONSTANT  FOR  AIR 

RER  RACIAL  REYNOLDS  NUMBER 

REY  REYNOLDS  NUMBER  BASED  ON  PIPE  OIAMETER 
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J  .A/TxJ 


RHC 

RHC2 

RHOV 

RMU 

TO 

W 

W2 

W3AR 

X 

X  2 


DENSITY  (CL3F/$ECA2/FTA4) 

NEXT  STEPS  DENSITY 

MASS  VELOCITY  BLOWING  THROUGH  THE  WALL  C L BF-S EC /FT A 3 ) 
VISCOSITY 

AIR  TEMPERATURE  <R) 

LOCAL  MASS  FLCW  RATE 

NEXT  STEP'S  LOCAL  MASS  FLOW  RATE 

AVERAGE  LOCAL  MASS  FLOW  RATE  CCORRECTOR  STEP) 

AXAIL  LOCATIO 

NEXT  STEPS  AXAIL  LOCATION 


XBAR  VARIABLE  USED  IN  LAMINAR  TO  TUR3ULENT  TRANSITION  MODEL 
XM  LOCAL  VELOCITY 
X M2  NEXT  STEP'S  LOCAL  VELOCITY 

ENTER  SPECIFIC  PROBLEM  VARIABLES 

PEVAP=38. 90*144 

PCOND  -24.50*144 

P0=35 • 25 

P0=P0*144 

DELP=72 

A=3. 636E+9 

B=1.701E+8 

T0=540 

R=1 7 1 8 . 

G AMM A=1 . 4 

G AMM1 =GAMM A/ C GAMMA-1) 

0=0.650/12. 

NM=  1 
PL  =  2. 

PEX=PEVAP 
PLM=PL/2 
D  ELX  =  0 .01 
PUC=1 . 07 

INITIALIZE  THE  VARIABLES  AT  TME  UPSTREAM  PIPE  END 


W  =0.0 
XM2=0.0 
X  =0.0 
P  =P0 
T  =T0 

RHO  =P0/R/T0 


oonooo  uiooo  ooo 


USE  INCOMPRESSIBLE  MCCEL  TO  GET  THE  STARTING  VALUES 
C=ABSCP**2-PEX**2) 

RHCV=-C-B+SQRTCB**2+4.*A$C))/C2.$A)*FUD 
C2=GAMMA$P/RH0 

XM22=C4.0^RHGV*DELX/RH0/O)«*2/C2 
W2sW-RHCVS0ElX*D*3.14*32.2 
X2=X+DELX 

P25P0/C1.+(GAMKA-1)/23XM22)*$GAMM1 
P02=P0 
RHG2=RHC 

MARCH  DOWN  THE  PIFE  FINDING  THF  FLOW  PROPERTIES  ALCNG  THE  WAY 
N  =  1 

CONTINUE 
N=N  +  1 

IF  CX  .GT.  PLM)  PEX=PC0ND 
XM2=XM22 
P  =  P  2 
P01=P02 
W  =  W  2 

DELX*0.020*Ci.-XM2)S*2 
X=X+0ELX 

PREOICTOR  AND  CORRECTOR  STEPS 
DO  8  NN=1,1 

CALCULATE  THE  INFLUENCE  COEFFICIENTS 

XM2BAR=CXM2+XM22)/2. 

C0N1=1.+CGAMMA-1)/2*XM25AR 
C0N2=1 .-XM28AR 
C0N3=1.+GAMMA«XM2BAR 
C0N4=GAMMA*XM2BAR 
FW=2.$C0N3*C0N1/CQN2 
FWP=C0N4 

C  FINO  THE  MASS  ADDED  THROUGH  THE  PIPE  WALL 


PBAR=CP2+P)/2 

C=P8AR$$2-PEX*42 

ID-1 

IF  CC  .LT.  0.0)  ID*-1 
C=AB$(C) 

RHGV=I0$<-B+SQRT<5**2+4.*A$C))/C2.*A)*FUD 
0ELW=  -RHQV$DELX*0*3. 14*32.2 
X*f\  W2  =  W  +  DELW 

'>>;•  IF  CW2  .LT.  0)  GO  TO  30 
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FIND  THE  FRICTION  FACTOR  AND  THE  FRICTION  INFLUENCE  COEFFICIENT 


T=T0/CQN1 

RMU  =  2.27E-08*SGRTCT:!:=r3)/(T  +  198.6) 

WBAR  =  (V»  +  W2)/2 

REY  =  4$W8.*R/3.14/D/RMU/3  2.2 
RER=RHOV*D/RMU 
XBAR=C(X-1.00)/.25)SS2 
FL=16/REY*1.2337*EXPC1.20$XM2) 

FL=16/REY 
3ETA=A8S(RER/REY) 

FSTAR=0.046/REY**0.2 

FT=FSTAR*(1+55$REY$*.1*EXPC1.2$XM2)*3ETA**0.9*PL/D**0.1) 
FT=FSTAR 

F=FT-<FT-FL)$EXPC-.412$X3AR) 

IF  CX  .LE.  1.0)  F=FL 
FF=C0N4*C0N1/CQN2*4*F/C 

FFP=C0N4/2*4*F/0 
FF=0 • 0 
FFP  =  0 • 0  _ 

FIND  THE  CHANGE  IN  MACH  NUMBER  ANO  PRESSURE  DUE  TO  FRICTION  AND 
MASS  ADCITION 

XM22=EXP(ALOG(XM2)4FF$OELX4FW*ALOGCW2/W)) 
PO2=EXPCALCGCP01)-FFP^OELX>FWP«ALOGCW2/W)) 
P2=P02/(1.-KGAMMA-1)/2$XM2  2)**GAMM1 
CONTINUE 

WRITEC2,*)  X/Pl,P2/P0»W2 

CHECK  FOR  CONVERGENCE  AND  GUESS  A  NEW  VALUE  FOR  P0 

IF  CX  .GT.  PL)  GO  TO  10 
IF  CN  .  EQ.  2500)  GC  TO  40 
GO  TO  5 
10  CONTINUE 
GO  TO  40 

IF  CW2  .LT.  .001)  GO  TO  40 
NM=NM+1 

WRITEC2  »$)  'NM*'fNM# 'POs'fPO 
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IF  CNM  .GT.  8)  GO  70  40 
DELP=DELP/2 
PO=PO+OELP 
GO  TO  1 

30  0ELP=DELP/2 

GO  TO  40 
PO=PO-DELP 
NM=NM+1 

IF  CNH  .GT.  8)  GO  TO  40 

WRITE  C2,«)  'NH=  ',NM»'PO= 

GO  TO  1 
40  STOP 

END 


I 


€; 
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